home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: HyperCard Stack
(archive/hypercard).
| id metadata |
|---|
| key | value |
|---|
| macFileType | [STAK] |
| macFileCreator | [WILD] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 10 00 53 54 41 4b | ff ff ff ff 12 a2 c8 bd |....STAK|........|
|00000010| 00 00 00 08 00 03 a0 00 | 00 00 10 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 03 | 00 00 0a 2f 00 00 00 1b |........|.../....|
|00000030| 00 00 08 c4 00 00 31 26 | 00 00 00 1d 00 01 56 20 |......1&|......V |
|00000040| 00 00 0d 96 fa bd c7 97 | 00 02 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 22 00 00 00 22 00 |........|.."...".|
|000002d0| 88 00 22 00 88 00 22 00 | cc 00 33 00 cc 00 33 00 |.."...".|..3...3.|
|000002e0| cc 88 33 22 cc 88 33 22 | ee 88 bb 22 ee 88 bb 22 |..3"..3"|..."..."|
|000002f0| ee cc bb 33 ee cc bb 33 | ff cc ff 33 ff cc ff 33 |...3...3|...3...3|
|00000300| ff ee ff bb ff ee ff bb | ff ff ff bb ff ff ff bb |........|........|
|00000310| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|00000320| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|00000330| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|00000340| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|00000350| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|00000360| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|00000370| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000380| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000390| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|000003a0| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|000003b0| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|000003c0| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|000003d0| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|000003e0| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|000003f0| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000400| 00 00 12 00 00 00 07 e0 | 00 00 1f a0 00 00 06 e0 |........|........|
|00000410| 00 00 2f c0 00 00 02 60 | 00 00 3d 20 00 00 0e 60 |../....`|..= ...`|
|00000420| 00 00 55 60 00 00 00 20 | 00 00 6b e0 00 00 00 20 |..U`... |..k.... |
|00000430| 00 00 77 20 00 00 02 40 | 00 00 8d 00 00 00 04 80 |..w ...@|........|
|00000440| 00 00 a2 a0 00 00 01 00 | 00 00 b1 80 00 00 00 20 |........|....... |
|00000450| 00 00 b4 60 00 00 01 20 | 00 00 cf a0 00 00 02 20 |...`... |....... |
|00000460| 00 00 d9 c0 00 00 05 a0 | 00 01 0c e0 00 00 14 60 |........|.......`|
|00000470| 00 01 2e e0 00 00 52 a0 | 00 01 96 60 00 00 06 e0 |......R.|...`....|
|00000480| 00 01 a5 40 00 00 00 a0 | 00 01 ae c0 00 00 07 00 |...@....|........|
|00000490| 00 01 c6 20 00 00 01 40 | 00 01 d7 40 00 00 14 60 |... ...@|...@...`|
|000004a0| 00 01 f4 00 00 00 08 60 | 00 02 04 c0 00 00 3c 20 |.......`|......< |
|000004b0| 00 02 5c 80 00 00 01 e0 | 00 02 72 c0 00 00 0e 40 |..\.....|..r....@|
|000004c0| 00 02 8b c0 00 00 1c 40 | 00 02 c6 60 00 00 0f 20 |.......@|...`... |
|000004d0| 00 03 14 80 00 00 02 e0 | 00 03 54 60 00 00 10 a0 |........|..T`....|
|000004e0| 00 03 98 e0 00 00 07 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 6f 6e 20 73 74 61 72 74 | 55 70 0d 67 65 74 48 6f |on start|Up.getHo|
|00000610| 6d 65 49 6e 66 6f 0d 70 | 61 73 73 20 73 74 61 72 |meInfo.p|ass star|
|00000620| 74 55 70 20 2d 2d 20 74 | 6f 20 61 20 73 74 61 72 |tUp -- t|o a star|
|00000630| 74 55 70 20 58 43 4d 44 | 2c 20 69 66 20 70 72 65 |tUp XCMD|, if pre|
|00000640| 73 65 6e 74 0d 65 6e 64 | 20 73 74 61 72 74 55 70 |sent.end| startUp|
|00000650| 0d 0d 6f 6e 20 6f 70 65 | 6e 73 74 61 63 6b 0d 73 |..on ope|nstack.s|
|00000660| 65 74 20 75 73 65 72 6c | 65 76 65 6c 20 74 6f 20 |et userl|evel to |
|00000670| 31 0d 67 6f 20 74 6f 20 | 63 61 72 64 20 69 64 20 |1.go to |card id |
|00000680| 32 32 34 34 0d 73 65 74 | 20 6c 6f 63 6b 73 63 72 |2244.set| lockscr|
|00000690| 65 65 6e 20 74 6f 20 74 | 72 75 65 0d 68 69 64 65 |een to t|rue.hide|
|000006a0| 20 6d 65 6e 75 62 61 72 | 0d 73 65 74 20 74 68 65 | menubar|.set the|
|000006b0| 20 76 69 73 69 62 6c 65 | 20 6f 66 20 63 61 72 64 | visible| of card|
|000006c0| 20 62 75 74 74 6f 6e 20 | 63 6f 6e 74 69 6e 75 65 | button |continue|
|000006d0| 20 74 6f 20 74 72 75 65 | 0d 73 65 74 20 76 69 73 | to true|.set vis|
|000006e0| 69 62 6c 65 20 6f 66 20 | 63 61 72 64 20 46 69 65 |ible of |card Fie|
|000006f0| 6c 64 20 68 69 64 65 20 | 74 6f 20 66 61 6c 73 65 |ld hide |to false|
|00000700| 0d 0d 65 6e 64 20 6f 70 | 65 6e 73 74 61 63 6b 0d |..end op|enstack.|
|00000710| 6f 6e 20 63 6c 6f 73 65 | 73 74 61 63 6b 0d 73 65 |on close|stack.se|
|00000720| 74 20 75 73 65 72 6c 65 | 76 65 6c 20 74 6f 20 35 |t userle|vel to 5|
|00000730| 0d 65 6e 64 20 63 6c 6f | 73 65 73 74 61 63 6b 0d |.end clo|sestack.|
|00000740| 0d 0d 6f 6e 20 72 65 73 | 75 6d 65 0d 67 65 74 48 |..on res|ume.getH|
|00000750| 6f 6d 65 49 6e 66 6f 0d | 70 61 73 73 20 72 65 73 |omeInfo.|pass res|
|00000760| 75 6d 65 20 2d 2d 20 74 | 6f 20 61 20 72 65 73 75 |ume -- t|o a resu|
|00000770| 6d 65 20 58 43 4d 44 2c | 20 69 66 20 70 72 65 73 |me XCMD,| if pres|
|00000780| 65 6e 74 0d 65 6e 64 20 | 72 65 73 75 6d 65 0d 0d |ent.end |resume..|
|00000790| 6f 6e 20 67 65 74 48 6f | 6d 65 49 6e 66 6f 0d 67 |on getHo|meInfo.g|
|000007a0| 6c 6f 62 61 6c 20 73 74 | 61 63 6b 73 2c 61 70 70 |lobal st|acks,app|
|000007b0| 6c 69 63 61 74 69 6f 6e | 73 2c 64 6f 63 75 6d 65 |lication|s,docume|
|000007c0| 6e 74 73 2c 75 73 65 72 | 4e 61 6d 65 0d 73 65 74 |nts,user|Name.set|
|000007d0| 20 6c 6f 63 6b 53 63 72 | 65 65 6e 20 74 6f 20 74 | lockScr|een to t|
|000007e0| 72 75 65 0d 73 65 74 20 | 6c 6f 63 6b 4d 65 73 73 |rue.set |lockMess|
|000007f0| 61 67 65 73 20 74 6f 20 | 74 72 75 65 0d 70 75 73 |ages to |true.pus|
|00000800| 68 20 74 68 69 73 20 63 | 61 72 64 0d 67 6f 20 74 |h this c|ard.go t|
|00000810| 6f 20 63 61 72 64 20 22 | 55 73 65 72 20 50 72 65 |o card "|User Pre|
|00000820| 66 65 72 65 6e 63 65 73 | 22 20 6f 66 20 73 74 61 |ferences|" of sta|
|00000830| 63 6b 20 22 48 6f 6d 65 | 22 0d 70 75 74 20 63 61 |ck "Home|".put ca|
|00000840| 72 64 20 66 69 65 6c 64 | 20 22 55 73 65 72 20 4e |rd field| "User N|
|00000850| 61 6d 65 22 20 69 6e 74 | 6f 20 75 73 65 72 4e 61 |ame" int|o userNa|
|00000860| 6d 65 0d 73 65 74 20 75 | 73 65 72 4c 65 76 65 6c |me.set u|serLevel|
|00000870| 20 74 6f 20 63 61 72 64 | 20 66 69 65 6c 64 20 22 | to card| field "|
|00000880| 55 73 65 72 20 4c 65 76 | 65 6c 22 0d 73 65 74 20 |User Lev|el".set |
|00000890| 70 6f 77 65 72 4b 65 79 | 73 20 74 6f 20 74 68 65 |powerKey|s to the|
|000008a0| 20 68 69 6c 69 74 65 20 | 6f 66 20 62 75 74 74 6f | hilite |of butto|
|000008b0| 6e 20 22 50 6f 77 65 72 | 20 4b 65 79 73 22 0d 73 |n "Power| Keys".s|
|000008c0| 65 74 20 62 6c 69 6e 64 | 54 79 70 69 6e 67 20 74 |et blind|Typing t|
|000008d0| 6f 20 74 68 65 20 68 69 | 6c 69 74 65 20 6f 66 20 |o the hi|lite of |
|000008e0| 62 75 74 74 6f 6e 20 22 | 42 6c 69 6e 64 20 54 79 |button "|Blind Ty|
|000008f0| 70 69 6e 67 22 0d 70 75 | 74 20 66 69 65 6c 64 20 |ping".pu|t field |
|00000900| 22 70 61 74 68 73 22 20 | 6f 66 20 63 61 72 64 20 |"paths" |of card |
|00000910| 22 73 74 61 63 6b 73 22 | 20 69 6e 74 6f 20 73 74 |"stacks"| into st|
|00000920| 61 63 6b 73 0d 70 75 74 | 20 66 69 65 6c 64 20 22 |acks.put| field "|
|00000930| 70 61 74 68 73 22 20 6f | 66 20 63 61 72 64 20 22 |paths" o|f card "|
|00000940| 61 70 70 6c 69 63 61 74 | 69 6f 6e 73 22 20 69 6e |applicat|ions" in|
|00000950| 74 6f 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 73 0d |to appli|cations.|
|00000960| 70 75 74 20 66 69 65 6c | 64 20 22 70 61 74 68 73 |put fiel|d "paths|
|00000970| 22 20 6f 66 20 63 61 72 | 64 20 22 64 6f 63 75 6d |" of car|d "docum|
|00000980| 65 6e 74 73 22 20 69 6e | 74 6f 20 64 6f 63 75 6d |ents" in|to docum|
|00000990| 65 6e 74 73 0d 70 6f 70 | 20 63 61 72 64 0d 73 65 |ents.pop| card.se|
|000009a0| 74 20 6c 6f 63 6b 53 63 | 72 65 65 6e 20 74 6f 20 |t lockSc|reen to |
|000009b0| 66 61 6c 73 65 0d 73 65 | 74 20 6c 6f 63 6b 4d 65 |false.se|t lockMe|
|000009c0| 73 73 61 67 65 73 20 74 | 6f 20 66 61 6c 73 65 0d |ssages t|o false.|
|000009d0| 65 6e 64 20 67 65 74 48 | 6f 6d 65 49 6e 66 6f 0d |end getH|omeInfo.|
|000009e0| 0d 6f 6e 20 73 65 61 72 | 63 68 53 63 72 69 70 74 |.on sear|chScript|
|000009f0| 20 70 61 74 74 65 72 6e | 2c 73 74 61 63 6b 4e 61 | pattern|,stackNa|
|00000a00| 6d 65 20 2d 2d 20 73 65 | 61 72 63 68 20 61 6c 6c |me -- se|arch all|
|00000a10| 20 73 63 72 69 70 74 73 | 20 6f 66 20 61 20 73 74 | scripts| of a st|
|00000a20| 61 63 6b 0d 73 65 74 20 | 6c 6f 63 6b 4d 65 73 73 |ack.set |lockMess|
|00000a30| 61 67 65 73 20 74 6f 20 | 74 72 75 65 0d 69 66 20 |ages to |true.if |
|00000a40| 73 74 61 63 6b 4e 61 6d | 65 20 69 73 20 6e 6f 74 |stackNam|e is not|
|00000a50| 20 65 6d 70 74 79 20 74 | 68 65 6e 20 67 6f 20 74 | empty t|hen go t|
|00000a60| 6f 20 73 74 61 63 6b 20 | 73 74 61 63 6b 4e 61 6d |o stack |stackNam|
|00000a70| 65 0d 0d 69 66 20 74 68 | 65 20 73 63 72 69 70 74 |e..if th|e script|
|00000a80| 20 6f 66 20 74 68 69 73 | 20 73 74 61 63 6b 20 63 | of this| stack c|
|00000a90| 6f 6e 74 61 69 6e 73 20 | 70 61 74 74 65 72 6e 0d |ontains |pattern.|
|00000aa0| 74 68 65 6e 20 65 64 69 | 74 20 73 63 72 69 70 74 |then edi|t script|
|00000ab0| 20 6f 66 20 74 68 69 73 | 20 73 74 61 63 6b 0d 0d | of this| stack..|
|00000ac0| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|00000ad0| 31 20 74 6f 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |1 to the| number |
|00000ae0| 6f 66 20 62 6b 67 6e 64 | 73 0d 67 6f 20 74 6f 20 |of bkgnd|s.go to |
|00000af0| 63 61 72 64 20 31 20 6f | 66 20 62 6b 67 6e 64 20 |card 1 o|f bkgnd |
|00000b00| 69 0d 69 66 20 74 68 65 | 20 73 63 72 69 70 74 20 |i.if the| script |
|00000b10| 6f 66 20 74 68 69 73 20 | 62 6b 67 6e 64 20 63 6f |of this |bkgnd co|
|00000b20| 6e 74 61 69 6e 73 20 70 | 61 74 74 65 72 6e 0d 74 |ntains p|attern.t|
|00000b30| 68 65 6e 20 65 64 69 74 | 20 73 63 72 69 70 74 20 |hen edit| script |
|00000b40| 6f 66 20 62 6b 67 6e 64 | 0d 0d 72 65 70 65 61 74 |of bkgnd|..repeat|
|00000b50| 20 77 69 74 68 20 6a 20 | 3d 20 31 20 74 6f 20 74 | with j |= 1 to t|
|00000b60| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 62 6b 67 |he numbe|r of bkg|
|00000b70| 6e 64 20 62 75 74 74 6f | 6e 73 0d 69 66 20 74 68 |nd butto|ns.if th|
|00000b80| 65 20 73 63 72 69 70 74 | 20 6f 66 20 62 6b 67 6e |e script| of bkgn|
|00000b90| 64 20 62 75 74 74 6f 6e | 20 6a 20 63 6f 6e 74 61 |d button| j conta|
|00000ba0| 69 6e 73 20 70 61 74 74 | 65 72 6e 0d 74 68 65 6e |ins patt|ern.then|
|00000bb0| 20 65 64 69 74 20 73 63 | 72 69 70 74 20 6f 66 20 | edit sc|ript of |
|00000bc0| 62 6b 67 6e 64 20 62 75 | 74 74 6f 6e 20 6a 0d 65 |bkgnd bu|tton j.e|
|00000bd0| 6e 64 20 72 65 70 65 61 | 74 0d 0d 72 65 70 65 61 |nd repea|t..repea|
|00000be0| 74 20 77 69 74 68 20 6a | 20 3d 20 31 20 74 6f 20 |t with j| = 1 to |
|00000bf0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 62 6b |the numb|er of bk|
|00000c00| 67 6e 64 20 66 69 65 6c | 64 73 0d 69 66 20 74 68 |gnd fiel|ds.if th|
|00000c10| 65 20 73 63 72 69 70 74 | 20 6f 66 20 62 6b 67 6e |e script| of bkgn|
|00000c20| 64 20 66 69 65 6c 64 20 | 6a 20 63 6f 6e 74 61 69 |d field |j contai|
|00000c30| 6e 73 20 70 61 74 74 65 | 72 6e 0d 74 68 65 6e 20 |ns patte|rn.then |
|00000c40| 65 64 69 74 20 73 63 72 | 69 70 74 20 6f 66 20 62 |edit scr|ipt of b|
|00000c50| 6b 67 6e 64 20 66 69 65 | 6c 64 20 6a 0d 65 6e 64 |kgnd fie|ld j.end|
|00000c60| 20 72 65 70 65 61 74 0d | 0d 65 6e 64 20 72 65 70 | repeat.|.end rep|
|00000c70| 65 61 74 0d 0d 72 65 70 | 65 61 74 20 77 69 74 68 |eat..rep|eat with|
|00000c80| 20 69 20 3d 20 31 20 74 | 6f 20 74 68 65 20 6e 75 | i = 1 t|o the nu|
|00000c90| 6d 62 65 72 20 6f 66 20 | 63 61 72 64 73 0d 67 6f |mber of |cards.go|
|00000ca0| 20 63 61 72 64 20 69 0d | 69 66 20 74 68 65 20 73 | card i.|if the s|
|00000cb0| 63 72 69 70 74 20 6f 66 | 20 74 68 69 73 20 63 61 |cript of| this ca|
|00000cc0| 72 64 20 63 6f 6e 74 61 | 69 6e 73 20 70 61 74 74 |rd conta|ins patt|
|00000cd0| 65 72 6e 0d 74 68 65 6e | 20 65 64 69 74 20 73 63 |ern.then| edit sc|
|00000ce0| 72 69 70 74 20 6f 66 20 | 74 68 69 73 20 63 61 72 |ript of |this car|
|00000cf0| 64 0d 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 6a |d..repea|t with j|
|00000d00| 20 3d 20 31 20 74 6f 20 | 74 68 65 20 6e 75 6d 62 | = 1 to |the numb|
|00000d10| 65 72 20 6f 66 20 63 61 | 72 64 20 62 75 74 74 6f |er of ca|rd butto|
|00000d20| 6e 73 0d 69 66 20 74 68 | 65 20 73 63 72 69 70 74 |ns.if th|e script|
|00000d30| 20 6f 66 20 63 61 72 64 | 20 62 75 74 74 6f 6e 20 | of card| button |
|00000d40| 6a 20 63 6f 6e 74 61 69 | 6e 73 20 70 61 74 74 65 |j contai|ns patte|
|00000d50| 72 6e 0d 74 68 65 6e 20 | 65 64 69 74 20 73 63 72 |rn.then |edit scr|
|00000d60| 69 70 74 20 6f 66 20 63 | 61 72 64 20 62 75 74 74 |ipt of c|ard butt|
|00000d70| 6f 6e 20 6a 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |on j.end| repeat.|
|00000d80| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 6a 20 3d |.repeat |with j =|
|00000d90| 20 31 20 74 6f 20 74 68 | 65 20 6e 75 6d 62 65 72 | 1 to th|e number|
|00000da0| 20 6f 66 20 63 61 72 64 | 20 66 69 65 6c 64 73 0d | of card| fields.|
|00000db0| 69 66 20 74 68 65 20 73 | 63 72 69 70 74 20 6f 66 |if the s|cript of|
|00000dc0| 20 63 61 72 64 20 66 69 | 65 6c 64 20 6a 20 63 6f | card fi|eld j co|
|00000dd0| 6e 74 61 69 6e 73 20 70 | 61 74 74 65 72 6e 0d 74 |ntains p|attern.t|
|00000de0| 68 65 6e 20 65 64 69 74 | 20 73 63 72 69 70 74 20 |hen edit| script |
|00000df0| 6f 66 20 63 61 72 64 20 | 66 69 65 6c 64 20 6a 0d |of card |field j.|
|00000e00| 65 6e 64 20 72 65 70 65 | 61 74 0d 0d 65 6e 64 20 |end repe|at..end |
|00000e10| 72 65 70 65 61 74 0d 73 | 65 74 20 6c 6f 63 6b 4d |repeat.s|et lockM|
|00000e20| 65 73 73 61 67 65 73 20 | 74 6f 20 66 61 6c 73 65 |essages |to false|
|00000e30| 0d 65 6e 64 20 73 65 61 | 72 63 68 53 63 72 69 70 |.end sea|rchScrip|
|00000e40| 74 0d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |t.......|........|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 00 05 1d c4 00 04 8c 2a | 00 01 34 2f 00 0c 0c e1 |.......*|..4/....|
|00001030| 00 12 f7 a4 00 00 d8 96 | 00 05 ac f5 00 1c 02 08 |........|........|
|00001040| 00 00 cf d8 00 01 91 a2 | 00 15 a6 79 00 16 ac d0 |........|...y....|
|00001050| 00 06 ff f8 00 09 0a f2 | 00 03 cb 76 00 18 bb dc |........|...v....|
|00001060| 00 02 5c 94 00 02 cc 25 | 00 03 60 8b 00 0f e3 bd |..\....%|..`.....|
|00001070| 00 18 4f bf 00 03 e7 68 | 00 0d 2f 68 00 0d ae 8d |..O....h|../h....|
|00001080| 00 14 08 1a 00 00 d6 27 | 00 1b 28 fc 00 12 07 55 |.......'|..(....U|
|00001090| 00 00 de fd 00 04 bf dd | 00 0f 5d 39 00 05 8d 71 |........|..]9...q|
|000010a0| 00 06 fb 86 00 02 ac e9 | 00 0e 3b 2d 00 06 8e 9b |........|..;-....|
|000010b0| 00 06 9e 99 00 00 00 3a | 00 15 40 f3 00 05 40 33 |.......:|..@...@3|
|000010c0| 00 00 00 b7 00 12 f3 26 | 00 0c ea 70 00 00 00 00 |.......&|...p....|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001200| 00 00 07 e0 46 52 45 45 | 00 00 00 00 13 46 72 65 |....FREE|.....Fre|
|00001210| 65 20 4f 62 6a 65 63 74 | 20 20 20 20 20 20 20 20 |e Object| |
|00001220| 00 0c 00 19 00 00 05 82 | 00 00 00 00 00 00 00 28 |........|.......(|
|00001230| 00 06 02 80 00 c4 00 0d | 01 3b 01 e3 00 07 00 00 |........|.;......|
|00001240| 00 00 00 00 00 04 00 09 | 00 00 00 0c 53 6f 75 72 |........|....Sour|
|00001250| 63 65 00 00 00 00 00 68 | 00 08 01 00 01 3e 01 de |ce.....h|.....>..|
|00001260| 01 55 01 f7 00 00 00 00 | 18 23 00 01 00 00 00 0c |.U......|.#......|
|00001270| 00 00 00 10 4e 65 78 74 | 00 00 6f 6e 20 6d 6f 75 |....Next|..on mou|
|00001280| 73 65 55 70 0d 73 65 74 | 20 74 68 65 20 6c 6f 63 |seUp.set| the loc|
|00001290| 6b 53 63 72 65 65 6e 20 | 74 6f 20 74 72 75 65 0d |kScreen |to true.|
|000012a0| 67 6f 20 74 6f 20 6e 65 | 78 74 20 63 61 72 64 0d |go to ne|xt card.|
|000012b0| 65 6e 64 20 6d 6f 75 73 | 65 55 70 0d 00 00 00 68 |end mous|eUp....h|
|000012c0| 00 09 01 00 01 3c 00 0e | 01 53 00 28 00 00 00 00 |.....<..|.S.(....|
|000012d0| 19 3c 00 01 00 00 00 0c | 00 00 00 10 50 72 65 76 |.<......|....Prev|
|000012e0| 00 00 6f 6e 20 6d 6f 75 | 73 65 55 70 0d 73 65 74 |..on mou|seUp.set|
|000012f0| 20 74 68 65 20 6c 6f 63 | 6b 53 63 72 65 65 6e 20 | the loc|kScreen |
|00001300| 74 6f 20 74 72 75 65 0d | 67 6f 20 74 6f 20 70 72 |to true.|go to pr|
|00001310| 65 76 20 63 61 72 64 0d | 65 6e 64 20 6d 6f 75 73 |ev card.|end mous|
|00001320| 65 55 70 0d 00 00 01 42 | 00 10 01 80 01 3e 00 4a |eUp....B|.....>.J|
|00001330| 01 52 00 bb 80 03 00 00 | 00 00 00 01 00 00 00 0c |.R......|........|
|00001340| 00 00 00 10 43 72 65 61 | 74 65 20 50 72 6f 67 72 |....Crea|te Progr|
|00001350| 61 6d 00 00 6f 6e 20 6d | 6f 75 73 65 55 70 0d 41 |am..on m|ouseUp.A|
|00001360| 6e 73 77 65 72 20 22 43 | 72 65 61 74 65 20 74 68 |nswer "C|reate th|
|00001370| 65 20 50 61 73 63 61 6c | 20 50 72 6f 67 72 61 6d |e Pascal| Program|
|00001380| 3f 22 20 77 69 74 68 20 | 22 4f 4b 22 20 6f 72 20 |?" with |"OK" or |
|00001390| 22 43 61 6e 63 65 6c 22 | 0d 69 66 20 69 74 20 3d |"Cancel"|.if it =|
|000013a0| 20 22 4f 4b 22 20 74 68 | 65 6e 0d 70 75 74 20 74 | "OK" th|en.put t|
|000013b0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 69 73 20 |he name |of this |
|000013c0| 63 61 72 64 20 69 6e 74 | 6f 20 69 74 0d 70 75 74 |card int|o it.put|
|000013d0| 20 73 65 63 6f 6e 64 20 | 77 6f 72 64 20 6f 66 20 | second |word of |
|000013e0| 69 74 20 69 6e 74 6f 20 | 69 74 0d 64 65 6c 65 74 |it into |it.delet|
|000013f0| 65 20 66 69 72 73 74 20 | 63 68 61 72 20 6f 66 20 |e first |char of |
|00001400| 69 74 0d 64 65 6c 65 74 | 65 20 6c 61 73 74 20 63 |it.delet|e last c|
|00001410| 68 61 72 20 6f 66 20 69 | 74 0d 6f 70 65 6e 20 66 |har of i|t.open f|
|00001420| 69 6c 65 20 69 74 0d 77 | 72 69 74 65 20 66 69 65 |ile it.w|rite fie|
|00001430| 6c 64 20 73 6f 75 72 63 | 65 20 74 6f 20 66 69 6c |ld sourc|e to fil|
|00001440| 65 20 69 74 0d 63 6c 6f | 73 65 20 66 69 6c 65 20 |e it.clo|se file |
|00001450| 69 74 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 6d 6f |it.end i|f.end mo|
|00001460| 75 73 65 55 70 0d 00 00 | 00 2e 00 11 02 80 00 2d |useUp...|.......-|
|00001470| 00 0d 00 aa 01 e3 00 07 | 00 00 00 00 00 00 00 04 |........|........|
|00001480| 00 09 00 00 00 0c 44 6f | 63 75 6d 65 6e 74 61 74 |......Do|cumentat|
|00001490| 69 6f 6e 00 00 00 00 6c | 00 12 01 80 01 3e 00 c2 |ion....l|.....>..|
|000014a0| 01 52 01 00 80 03 00 00 | 00 00 00 01 00 00 00 0c |.R......|........|
|000014b0| 00 00 00 10 49 6e 64 65 | 78 00 00 6f 6e 20 6d 6f |....Inde|x..on mo|
|000014c0| 75 73 65 55 70 0d 73 65 | 74 20 74 68 65 20 6c 6f |useUp.se|t the lo|
|000014d0| 63 6b 53 63 72 65 65 6e | 20 74 6f 20 74 72 75 65 |ckScreen| to true|
|000014e0| 0d 67 6f 20 74 6f 20 63 | 61 72 64 20 69 64 20 33 |.go to c|ard id 3|
|000014f0| 32 33 36 0d 65 6e 64 20 | 6d 6f 75 73 65 55 70 0d |236.end |mouseUp.|
|00001500| 0d 00 00 f2 00 13 01 00 | 01 3e 01 07 01 52 01 6b |........|.>...R.k|
|00001510| 80 03 00 00 00 00 00 01 | 00 00 00 0c 00 00 00 10 |........|........|
|00001520| 49 6e 74 72 6f 64 75 63 | 74 69 6f 6e 00 00 6f 6e |Introduc|tion..on|
|00001530| 20 6d 6f 75 73 65 55 70 | 0d 73 65 74 20 74 68 65 | mouseUp|.set the|
|00001540| 20 6c 6f 63 6b 53 63 72 | 65 65 6e 20 74 6f 20 74 | lockScr|een to t|
|00001550| 72 75 65 0d 67 6f 20 74 | 6f 20 63 61 72 64 20 69 |rue.go t|o card i|
|00001560| 64 20 31 30 37 39 35 0d | 73 65 74 20 74 68 65 20 |d 10795.|set the |
|00001570| 6c 6f 63 6b 73 63 72 65 | 65 6e 20 74 6f 20 66 61 |lockscre|en to fa|
|00001580| 6c 73 65 0d 77 61 69 74 | 20 66 6f 72 20 35 20 73 |lse.wait| for 5 s|
|00001590| 65 63 6f 6e 64 73 0d 73 | 65 74 20 74 68 65 20 6c |econds.s|et the l|
|000015a0| 6f 63 6b 53 63 72 65 65 | 6e 20 74 6f 20 74 72 75 |ockScree|n to tru|
|000015b0| 65 0d 76 69 73 75 61 6c | 20 65 66 66 65 63 74 20 |e.visual| effect |
|000015c0| 64 69 73 73 6f 6c 76 65 | 20 74 6f 20 77 68 69 74 |dissolve| to whit|
|000015d0| 65 0d 67 6f 20 74 6f 20 | 63 61 72 64 20 69 64 20 |e.go to |card id |
|000015e0| 33 38 34 38 0d 65 6e 64 | 20 6d 6f 75 73 65 55 70 |3848.end| mouseUp|
|000015f0| 0d 0d 00 00 00 62 00 14 | 01 00 01 3f 01 70 01 52 |.....b..|...?.p.R|
|00001600| 01 88 00 00 00 00 55 57 | 00 01 00 00 00 0c 00 00 |......UW|........|
|00001610| 00 10 47 6f 20 68 6f 6d | 65 00 00 6f 6e 20 6d 6f |..Go hom|e..on mo|
|00001620| 75 73 65 55 70 0d 73 65 | 74 20 74 68 65 20 6c 6f |useUp.se|t the lo|
|00001630| 63 6b 53 63 72 65 65 6e | 20 74 6f 20 74 72 75 65 |ckScreen| to true|
|00001640| 0d 67 6f 20 68 6f 6d 65 | 0d 65 6e 64 20 6d 6f 75 |.go home|.end mou|
|00001650| 73 65 55 70 0d 00 00 4c | 00 15 01 00 01 3c 01 91 |seUp...L|.....<..|
|00001660| 01 56 01 ba 20 00 00 00 | 7f 9e 00 01 00 00 00 0c |.V.. ...|........|
|00001670| 00 00 00 10 73 63 61 6e | 00 00 6f 6e 20 6d 6f 75 |....scan|..on mou|
|00001680| 73 65 55 70 0d 73 68 6f | 77 20 61 6c 6c 20 63 61 |seUp.sho|w all ca|
|00001690| 72 64 73 0d 65 6e 64 20 | 6d 6f 75 73 65 55 70 0d |rds.end |mouseUp.|
|000016a0| 00 00 00 26 00 16 02 00 | 00 b2 00 45 00 c5 00 cb |...&....|...E....|
|000016b0| 00 00 00 00 00 00 00 00 | 00 00 00 0c 00 00 00 10 |........|........|
|000016c0| 4e 41 4d 45 32 00 00 00 | 00 26 00 17 02 00 00 1d |NAME2...|.&......|
|000016d0| 00 75 00 30 00 fb 00 00 | 00 00 00 00 00 00 00 00 |.u.0....|........|
|000016e0| 00 0c 00 00 00 10 4e 41 | 4d 45 31 00 00 00 00 c2 |......NA|ME1.....|
|000016f0| 00 19 01 80 01 3d 00 7e | 01 51 00 da a0 03 00 00 |.....=.~|.Q......|
|00001700| 00 00 00 01 00 00 00 0c | 00 00 00 10 73 68 6f 77 |........|....show|
|00001710| 20 6d 65 6e 75 00 00 6f | 6e 20 6d 6f 75 73 65 55 | menu..o|n mouseU|
|00001720| 70 0d 73 65 74 20 74 68 | 65 20 76 69 73 69 62 6c |p.set th|e visibl|
|00001730| 65 20 6f 66 20 62 61 63 | 6b 67 72 6f 75 6e 64 20 |e of bac|kground |
|00001740| 62 75 74 74 6f 6e 20 22 | 73 68 6f 77 20 6d 65 6e |button "|show men|
|00001750| 75 22 20 74 6f 20 66 61 | 6c 73 65 0d 73 65 74 20 |u" to fa|lse.set |
|00001760| 74 68 65 20 76 69 73 69 | 62 6c 65 20 6f 66 20 62 |the visi|ble of b|
|00001770| 61 63 6b 67 72 6f 75 6e | 64 20 62 75 74 74 6f 6e |ackgroun|d button|
|00001780| 20 22 68 69 64 65 20 6d | 65 6e 75 22 20 74 6f 20 | "hide m|enu" to |
|00001790| 74 72 75 65 0d 73 68 6f | 77 20 6d 65 6e 75 62 61 |true.sho|w menuba|
|000017a0| 72 0d 65 6e 64 20 6d 6f | 75 73 65 55 70 0d 00 00 |r.end mo|useUp...|
|000017b0| 00 6f 6e 20 6f 70 65 6e | 53 74 61 63 6b 0d 68 69 |.on open|Stack.hi|
|000017c0| 64 65 20 6d 65 73 73 61 | 67 65 20 62 6f 78 0d 73 |de messa|ge box.s|
|000017d0| 68 6f 77 20 6d 65 6e 75 | 42 61 72 0d 70 61 73 73 |how menu|Bar.pass|
|000017e0| 20 6f 70 65 6e 53 74 61 | 63 6b 0d 65 6e 64 20 6f | openSta|ck.end o|
|000017f0| 70 65 6e 53 74 61 63 6b | 0d 0d 6f 6e 20 6f 70 65 |penStack|..on ope|
|00001800| 6e 63 61 72 64 0d 70 75 | 74 20 74 68 65 20 6e 61 |ncard.pu|t the na|
|00001810| 6d 65 20 6f 66 20 74 68 | 69 73 20 63 61 72 64 20 |me of th|is card |
|00001820| 69 6e 74 6f 20 69 74 0d | 70 75 74 20 73 65 63 6f |into it.|put seco|
|00001830| 6e 64 20 77 6f 72 64 20 | 6f 66 20 69 74 20 69 6e |nd word |of it in|
|00001840| 74 6f 20 69 74 0d 64 65 | 6c 65 74 65 20 66 69 72 |to it.de|lete fir|
|00001850| 73 74 20 63 68 61 72 20 | 6f 66 20 69 74 0d 64 65 |st char |of it.de|
|00001860| 6c 65 74 65 20 6c 61 73 | 74 20 63 68 61 72 20 6f |lete las|t char o|
|00001870| 66 20 69 74 0d 70 75 74 | 20 69 74 20 69 6e 74 6f |f it.put| it into|
|00001880| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 66 69 65 6c | backgro|und fiel|
|00001890| 64 20 22 4e 41 4d 45 32 | 22 0d 70 75 74 20 69 74 |d "NAME2|".put it|
|000018a0| 20 69 6e 74 6f 20 62 61 | 63 6b 67 72 6f 75 6e 64 | into ba|ckground|
|000018b0| 20 66 69 65 6c 64 20 22 | 4e 41 4d 45 31 22 0d 65 | field "|NAME1".e|
|000018c0| 6e 64 20 6f 70 65 6e 63 | 61 72 64 0d 00 00 1f 01 |nd openc|ard.....|
|000018d0| 1f 01 1f 01 2b 00 00 00 | e8 00 03 00 05 01 fb 01 |....+...|........|
|000018e0| fd 7f ff 01 56 00 05 ff | 00 00 00 14 00 14 00 00 |....V...|........|
|000018f0| 01 56 00 05 01 fb 7f ff | 7f ff 00 00 1f 01 1f 01 |.V......|........|
|00001900| 1f 01 2b 00 00 00 e8 00 | 03 00 05 01 05 ff 05 c8 |..+.....|........|
|00001910| 00 01 16 00 00 00 05 c0 | 43 41 52 44 00 00 0c a4 |........|CARD....|
|00001920| 00 00 14 f0 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 00 00 00 00 00 00 0a 2f | 00 10 00 10 00 00 03 7c |......./|.......||
|00001940| 00 00 00 e8 00 02 16 00 | 00 00 00 e0 42 4d 41 50 |........|....BMAP|
|00001950| 00 00 10 d8 00 00 00 00 | 00 01 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 c8 00 00 00 00 | 01 56 02 00 00 21 00 0e |........|.V...!..|
|00001970| 00 c3 00 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |...s....|........|
|00001980| 00 00 00 a4 21 03 e0 36 | 30 00 c6 04 8a 12 d0 18 |....!..6|0.......|
|00001990| 06 04 80 00 03 31 e1 c6 | 67 fc 3c 7c 78 f1 e6 3c |.....1..|g.<|x..<|
|000019a0| 00 00 00 88 02 d2 e0 01 | c1 9a 5a 1a 49 e9 20 5a |........|..Z.I. Z|
|000019b0| 1a 02 14 20 24 01 e0 23 | 60 00 47 18 00 01 60 05 |... $..#|`.G...`.|
|000019c0| 00 00 00 68 20 12 02 26 | 60 00 32 d2 d2 e5 c1 80 |...h ..&|`.2.....|
|000019d0| 00 5e 00 29 60 a0 5a 03 | bf 81 bf 81 bf 81 bf 81 |.^.)`.Z.|........|
|000019e0| 00 00 00 e0 42 4d 41 50 | 00 00 10 d8 00 00 00 00 |....BMAP|........|
|000019f0| 00 01 00 00 00 00 00 00 | 01 56 02 00 00 00 00 00 |........|.V......|
|00001a00| 01 56 02 00 00 21 00 0e | 00 c3 00 73 00 00 00 00 |.V...!..|...s....|
|00001a10| 00 00 00 00 00 00 00 00 | 00 00 00 a4 21 03 e0 36 |........|....!..6|
|00001a20| 30 00 c6 04 8a 12 d0 18 | 06 04 80 00 03 31 e1 c6 |0.......|.....1..|
|00001a30| 67 fc 3c 7c 78 f1 e6 3c | 7c 60 00 42 02 d2 e0 01 |g.<|x..<||`.B....|
|00001a40| c1 9a 5a 1a 49 e9 20 5a | 1a 02 14 20 24 01 e0 23 |..Z.I. Z|... $..#|
|00001a50| 60 00 47 18 00 01 60 05 | 17 1e 08 14 20 12 02 26 |`.G...`.|.... ..&|
|00001a60| 60 00 32 d2 d2 e5 c1 80 | 00 5e 00 29 60 a0 5a 03 |`.2.....|.^.)`.Z.|
|00001a70| bf 81 bf 81 bf 81 bf 81 | b1 81 89 41 03 06 00 63 |........|...A...c|
|00001a80| 0b 11 03 12 60 0b 8a 72 | 06 38 93 3e 1f 1c 60 07 |....`..r|.8.>..`.|
|00001a90| 53 5c 90 0d 2c 2e 08 13 | 14 23 0a 60 07 13 48 13 |S\..,...|.#.`..H.|
|00001aa0| 24 08 13 24 13 12 08 13 | 50 23 28 60 07 62 e0 74 |$..$....|P#(`.b.t|
|00001ab0| 50 00 2c 3a 08 89 16 03 | 09 16 23 09 16 1e 09 ff |P.,:....|..#.....|
|00001ac0| 00 00 00 40 42 4b 47 44 | 00 00 21 27 00 00 00 00 |...@BKGD|..!'....|
|00001ad0| 00 00 00 00 00 00 00 01 | 00 00 28 86 00 00 0a 2f |........|..(..../|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b00| 00 00 00 c0 50 52 4e 54 | 00 00 0d 96 00 05 00 01 |....PRNT|........|
|00001b10| 00 64 00 64 00 00 00 02 | 00 20 00 5a 00 20 00 5a |.d.d....|. .Z. .Z|
|00001b20| 00 00 00 01 00 01 01 00 | 01 02 01 00 01 00 00 00 |........|........|
|00001b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bb0| 00 01 00 00 00 0c 00 00 | 00 10 50 72 65 76 00 00 |........|..Prev..|
|00001bc0| 00 00 03 e0 42 4d 41 50 | 00 00 24 fd 00 00 00 00 |....BMAP|..$.....|
|00001bd0| 00 01 00 00 00 00 00 00 | 01 56 02 00 00 15 00 09 |........|.V......|
|00001be0| 00 cd 01 5c 00 08 00 7d | 01 4a 01 f8 00 00 00 00 |...\...}|.J......|
|00001bf0| 00 00 00 00 00 00 00 e0 | 00 00 02 bc 8d e1 23 80 |........|......#.|
|00001c00| 04 13 04 15 04 33 20 00 | 40 07 e1 14 14 13 04 15 |.....3 .|@.......|
|00001c10| 04 33 20 00 40 07 e1 10 | 10 22 80 10 e1 25 02 00 |.3 .@...|."...%..|
|00001c20| e1 10 50 e1 29 02 80 e1 | 10 c0 e1 1a c0 2f 01 80 |..P.)...|...../..|
|00001c30| e1 1a 60 1f 03 e1 1b 30 | 85 2a 80 80 22 04 0e e1 |..`....0|.*.."...|
|00001c40| 1b 18 12 04 27 80 80 22 | 04 0c e1 0c 21 08 04 e2 |....'.."|....!...|
|00001c50| 09 a8 85 e2 1b 18 85 1f | 05 e1 1b 30 2f 01 80 e1 |........|...0/...|
|00001c60| 1a 60 1a 02 33 80 24 c0 | e1 1a c0 1a 82 33 80 20 |.`..3.$.|.....3. |
|00001c70| 50 e1 29 02 80 bf 81 bf | 81 bf 81 bf 81 a9 81 13 |P.).....|........|
|00001c80| 20 e1 10 02 e1 07 31 20 | 00 20 e1 10 03 e1 07 a7 | .....1 |. ......|
|00001c90| 85 e1 24 01 80 e1 06 e1 | 15 c0 e1 06 e1 15 60 e1 |..$.....|......`.|
|00001ca0| 06 e1 15 30 e1 06 a5 85 | 11 60 e2 0a 85 e1 15 30 |...0....|.`.....0|
|00001cb0| e1 06 e1 24 40 20 e1 06 | e1 23 01 40 e1 07 11 60 |...$@ ..|.#.@...`|
|00001cc0| e1 20 04 01 e1 08 21 20 | 10 16 02 15 04 12 14 e1 |. ....! |........|
|00001cd0| 09 12 10 16 02 45 05 00 | 10 10 e1 09 e2 4c 07 ff |.....E..|.....L..|
|00001ce0| ff 80 04 e2 2b 07 f8 22 | 7f 80 03 e2 1b fc 14 f8 |....+.."|........|
|00001cf0| 03 e2 2a 07 80 14 0f 03 | e2 1a 38 25 01 c0 02 e2 |..*.....|..8%....|
|00001d00| 29 01 c0 16 38 02 e2 19 | 06 17 06 02 e2 19 08 17 |)...8...|........|
|00001d10| 01 02 e2 19 30 28 c0 00 | e2 19 40 28 20 00 e2 28 |....0(..|..@( ..(|
|00001d20| 01 80 28 18 00 e2 18 01 | 74 21 00 40 14 44 08 00 |..(.....|t!.@.D..|
|00001d30| e2 18 02 74 40 00 40 16 | 42 04 00 e2 18 04 74 81 |...t@.@.|B.....t.|
|00001d40| 11 48 25 41 02 00 e2 18 | 04 74 81 0a 50 24 c1 02 |.H%A....|.t..P$..|
|00001d50| 00 8c 14 10 e1 19 02 19 | 0c 12 82 c1 00 c1 86 48 |........|.......H|
|00001d60| 66 61 81 80 89 14 60 e1 | 19 03 49 08 11 00 44 c1 |fa....`.|..I...D.|
|00001d70| 00 41 0a 48 44 42 01 00 | 8a 14 e0 e1 29 03 80 19 |.A.HDB..|....)...|
|00001d80| 1b c1 00 64 1c 60 1b 0c | c0 06 02 89 13 01 e1 1b |...d.`..|........|
|00001d90| 40 58 08 04 7c 10 22 43 | 80 00 01 00 8a 13 03 e1 |@X..|."C|........|
|00001da0| 1b 60 3a 7c 00 1c 13 80 | 03 e2 58 0c 00 7c 30 1e |.`:|....|..X..|0.|
|00001db0| 25 03 00 43 06 02 00 04 | 32 10 00 0c c1 20 00 03 |%..C....|2.... ..|
|00001dc0| 08 00 44 03 80 23 10 1c | 22 10 40 12 30 49 0e 7c |..D..#..|".@.0I.||
|00001dd0| 64 3e 07 16 0c 15 40 12 | 10 22 07 c0 14 3e 13 40 |d>....@.|."...>.@|
|00001de0| 5b 06 1b 00 b8 1e 25 06 | 00 89 53 04 04 58 08 e2 |[.....%.|..S..X..|
|00001df0| c3 20 f8 60 14 a1 e3 85 | 28 7b e9 88 43 c3 0e 0f |. .`....|({..C...|
|00001e00| 10 42 0c 22 f8 96 1c 18 | 10 18 01 29 08 00 8a 25 |.B."....|...)...%|
|00001e10| 3c 71 c3 f0 60 d8 f0 01 | 83 c7 c0 60 f3 63 c0 07 |<q..`...|...`.c..|
|00001e20| 87 9f 1e 30 06 1e 60 d8 | 0f 3e 3c 29 01 80 28 10 |...0..`.|.><)..(.|
|00001e30| 00 25 20 f3 c3 03 00 01 | 80 30 06 0c cc 01 80 06 |.% .....|.0......|
|00001e40| 18 cc 0c b3 30 00 3c 30 | 06 00 08 60 64 1a c0 28 |....0.<0|...`d..(|
|00001e50| 38 00 25 c1 81 c3 f1 c0 | 03 00 03 6c 60 80 db 18 |8.%.....|...l`...|
|00001e60| 00 03 98 cf 02 63 00 28 | 60 c0 00 30 3e 78 1a 70 |.....c.(|`..0>x.p|
|00001e70| 28 e0 00 04 c1 0c 00 19 | e1 c0 60 00 02 03 c2 80 |(.......|..`.....|
|00001e80| 01 84 c3 00 07 80 00 60 | 18 00 08 61 80 3c 3c 1a |.......`|...a.<<.|
|00001e90| 38 37 01 c0 00 35 0c 00 | 23 72 30 64 c0 80 99 30 |87...5..|#r0d...0|
|00001ea0| 20 42 01 11 82 04 c1 00 | 0c 06 18 00 03 04 8c 1a | B......|........|
|00001eb0| 0e 17 07 02 65 01 f3 e0 | 60 03 e0 c2 00 0f 8f 80 |....e...|`.......|
|00001ec0| 03 e0 01 80 1f 1f 3e 7c | 00 06 7c f0 22 7c f8 2a |......>||..|."|.*|
|00001ed0| 07 c0 16 3e 02 89 13 04 | 13 04 e1 10 01 16 10 1a |...>....|........|
|00001ee0| 38 25 01 c0 02 13 04 e1 | 1b 10 1a 07 15 0e 03 13 |8%......|........|
|00001ef0| 02 e1 1b 20 1b f8 23 01 | f0 03 13 02 e1 1b 20 2b |... ..#.|...... +|
|00001f00| 0f f0 12 fe 04 13 01 e1 | 1b 40 3c 0f ff ff 05 14 |........|.@<.....|
|00001f10| 80 e1 1a 80 1b c0 08 14 | 60 e1 19 03 2b 01 20 08 |........|`...+. .|
|00001f20| 8c 14 10 e1 19 02 2b 01 | b0 08 89 e2 2a 61 20 08 |......+.|....*a .|
|00001f30| e2 2a 90 c0 08 e2 1a 90 | 09 e2 1a 60 09 e2 37 0f |.*......|...`..7.|
|00001f40| ff e0 0a e2 37 10 00 10 | 0a e2 37 13 ff 90 0a e2 |....7...|..7.....|
|00001f50| 37 14 00 50 0a a6 85 e2 | 37 13 ff 90 0a e2 37 10 |7..P....|7.....7.|
|00001f60| 00 10 0a 85 e2 37 10 0f | 90 0a 86 a2 85 e2 37 0f |.....7..|......7.|
|00001f70| ff e0 0a e2 37 08 00 20 | 0a 85 e2 37 0f ff e0 0a |....7.. |...7....|
|00001f80| bf 81 bf 81 bf 81 bf 81 | bf 81 bf 81 bf 81 bf 81 |........|........|
|00001f90| aa 81 e2 13 02 e1 00 00 | 00 00 00 36 00 00 00 00 |........|...6....|
|00001fa0| 00 00 06 e0 46 52 45 45 | 00 00 00 00 13 46 72 65 |....FREE|.....Fre|
|00001fb0| 65 20 4f 62 6a 65 63 74 | 20 20 20 20 20 20 20 20 |e Object| |
|00001fc0| 00 00 00 00 01 45 01 78 | 01 4a 01 79 00 00 00 00 |.....E.x|.J.y....|
|00001fd0| 00 00 00 00 00 00 00 00 | 00 00 00 08 13 80 a3 81 |........|........|
|00001fe0| 13 80 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002000| 00 00 06 80 46 52 45 45 | 00 00 00 00 13 46 72 65 |....FREE|.....Fre|
|00002010| 65 20 4f 62 6a 65 63 74 | 20 20 20 20 20 20 20 20 |e Object| |
|00002020| 01 52 01 f3 00 00 00 00 | 00 00 00 00 00 00 00 00 |.R......|........|
|00002030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002040| 00 00 06 40 42 4d 41 50 | 00 00 16 73 00 00 00 00 |...@BMAP|...s....|
|00002050| 00 01 00 00 00 00 00 00 | 01 56 02 00 00 10 00 0b |........|.V......|
|00002060| 00 4b 01 72 00 04 00 0d | 00 4e 01 fd 00 00 00 00 |.K.r....|.N......|
|00002070| 00 00 00 00 00 00 00 20 | 00 00 05 d8 8d 11 08 e2 |....... |........|
|00002080| 1b 02 02 ba 85 11 18 e2 | 3b 02 20 00 af 85 11 10 |........|;. .....|
|00002090| 1c 01 e1 11 04 2d 20 00 | af 85 10 40 e3 39 7f ff |.....- .|...@.9..|
|000020a0| f8 04 e3 58 3f 80 00 07 | f0 03 e3 27 07 c0 23 0f |...X?...|...'..#.|
|000020b0| 80 02 e3 17 38 15 70 02 | e3 26 01 c0 15 0e 02 e3 |....8.p.|.&......|
|000020c0| 16 0e 36 01 c0 00 e3 16 | 30 27 30 00 e3 16 40 27 |..6.....|0'0...@'|
|000020d0| 08 00 e3 25 01 80 27 06 | 00 e3 15 02 28 01 00 e3 |...%..'.|....(...|
|000020e0| 15 0c 19 c0 e3 15 08 73 | 01 08 02 00 a2 20 40 e3 |.......s|..... @.|
|000020f0| 15 10 73 02 00 02 00 b2 | 10 20 e3 15 20 73 04 08 |..s.....|. .. s..|
|00002100| 8a 41 2a 08 10 e3 15 20 | 73 04 08 52 81 26 08 10 |.A*.... |s..R.&..|
|00002110| e3 35 40 00 07 c1 e0 04 | 08 23 82 22 08 08 e3 35 |.5@.....|.#."...5|
|00002120| 40 88 02 c1 20 02 08 52 | 42 22 10 08 8a e1 15 01 |@... ..R|B"......|
|00002130| 16 10 15 80 e1 23 d8 03 | c1 20 e3 00 d8 66 00 30 |.....#..|. ...f.0|
|00002140| 00 89 11 01 32 80 00 02 | 1a 40 33 03 00 80 24 30 |....2...|.@3...$0|
|00002150| 08 52 02 01 00 01 e0 18 | 20 57 40 23 e0 81 10 12 |.R......| W@#....|
|00002160| 04 12 08 8a e1 25 06 01 | 25 60 10 25 03 f8 e1 41 |.....%..|%`.%...A|
|00002170| 03 e0 00 e0 12 04 03 32 | 01 01 80 e1 11 03 16 30 |.......2|.......0|
|00002180| 43 03 00 06 1c e1 50 60 | 03 e1 80 f0 15 18 16 06 |C.....P`|........|
|00002190| 1a c0 23 0c 06 25 c0 60 | 12 06 13 06 18 60 48 73 |..#..%.`|.....`Hs|
|000021a0| e3 21 f0 06 42 02 03 00 | f8 32 e0 01 c0 13 7c 32 |.!..B...|.2....|2|
|000021b0| 38 03 80 52 0c 00 1e 00 | 38 52 c0 01 e0 01 c0 14 |8..R....|8R......|
|000021c0| 78 42 03 80 07 80 58 30 | d8 05 c0 f0 15 30 04 c1 |xB....X0|.....0..|
|000021d0| 01 fc 00 03 f0 07 e0 4f | 02 c1 fe 00 03 78 0f c0 |.......O|.....x..|
|000021e0| 00 18 52 7e 40 fc 01 80 | c2 00 07 e4 1b c0 38 0c |..R~@...|......8.|
|000021f0| 00 01 f9 01 f0 0f c0 1f | 90 48 18 88 07 e0 16 60 |........|.H.....`|
|00002200| 22 06 06 c2 03 06 00 07 | 18 0e 30 1f 87 01 83 00 |".......|..0.....|
|00002210| 0f 40 1c 60 52 18 00 e0 | 01 c6 c1 00 01 80 0e 00 |.@.`R...|........|
|00002220| 7a 06 7c 72 03 80 07 f8 | 1c 60 38 19 04 19 80 77 |z.|r....|.`8....w|
|00002230| 0c 00 18 00 30 cf 80 32 | 1c 00 30 62 30 30 01 80 |....0..2|..0b00..|
|00002240| c3 00 c1 03 03 00 18 0c | e0 00 c6 02 c1 06 03 0e |........|........|
|00002250| 00 30 00 60 30 27 07 8e | 28 01 c0 73 0c 06 06 0c |.0.`0'..|(..s....|
|00002260| 00 18 30 72 18 c3 03 00 | 11 80 60 23 01 83 12 06 |..0r....|..`#....|
|00002270| 42 18 30 00 8c 23 06 0c | c1 00 18 18 00 60 c0 00 |B.0..#..|.....`..|
|00002280| c0 36 0f c3 80 27 07 00 | 21 01 8c 42 1c 00 18 10 |.6...'..|!..B....|
|00002290| 42 20 30 00 0e 26 60 60 | 42 06 04 06 06 34 01 80 |B 0..&``|B....4..|
|000022a0| 18 34 10 60 40 39 18 61 | c0 27 0e 00 15 f8 13 60 |.4.`@9.a|.'.....`|
|000022b0| 32 20 00 7c 13 c0 34 06 | 01 80 24 60 18 44 0c 18 |2 .|..4.|..$`.D..|
|000022c0| 06 1f 32 01 80 60 19 70 | 27 38 00 33 18 0b e0 45 |..2..`.p|'8.3...E|
|000022d0| c0 00 05 f0 17 c0 15 0c | 17 78 22 0f e0 1d 3e 36 |........|.x"...>6|
|000022e0| 01 f0 00 32 01 80 0b 37 | c0 05 80 16 c0 12 02 12 |...2...7|........|
|000022f0| 0c 23 20 00 c1 03 00 03 | f0 00 08 00 f0 13 80 29 |.# .....|.......)|
|00002300| 0f c0 35 0f c0 00 22 18 | 30 12 18 13 30 15 03 12 |..5...".|0...0...|
|00002310| 60 12 83 25 08 30 52 18 | 00 06 33 80 13 18 23 01 |`..%.0R.|..3...#.|
|00002320| 80 46 18 60 01 f8 15 7e | 02 8d 12 a0 e1 15 05 16 |.F.`...~|........|
|00002330| 50 16 14 24 01 40 12 40 | 72 01 04 48 20 00 20 20 |P..$.@.@|r..H . |
|00002340| 23 08 08 02 8a 15 04 72 | 20 00 61 80 00 c0 02 74 |#......r| .a....t|
|00002350| c0 01 81 00 06 0c 00 c1 | 08 18 10 00 60 c0 00 02 |........|....`...|
|00002360| 33 18 30 10 22 81 83 37 | 0b 47 80 c1 00 07 ff 80 |3.0."..7|.G......|
|00002370| 00 07 ff 80 02 8d 52 48 | 90 05 12 00 c1 14 50 51 |......RH|......PQ|
|00002380| 20 01 40 02 89 23 a2 40 | 34 24 05 14 23 02 40 12 | .@..#.@|4$..#.@.|
|00002390| 0a 63 90 12 14 51 40 09 | 12 01 24 46 c0 13 20 13 |.c...Q@.|..$F.. .|
|000023a0| 08 03 8a 74 03 f8 00 0f | c0 3f 80 22 01 fc 13 7f |...t....|.?."....|
|000023b0| 53 02 03 f1 83 f0 32 20 | 3f 18 05 c1 0f c6 0f f0 |S.....2 |?.......|
|000023c0| 3f 00 fc 60 3c 7f ff f8 | 04 89 e2 7e 01 87 ff ff |?..`<...|...~....|
|000023d0| e1 8c c0 0b e2 7e 01 87 | ff ff e1 87 80 0b e2 2e |.....~..|........|
|000023e0| 01 98 22 19 80 0c a2 85 | 12 42 38 20 00 08 e2 20 |..".....|.B8 ... |
|000023f0| 01 98 22 19 80 0c 8a 21 | 07 a6 32 70 40 00 c1 04 |.."....!|..2p@...|
|00002400| 04 02 60 20 18 00 60 14 | 10 12 1c 12 80 12 01 12 |..` ..`.|........|
|00002410| 07 24 20 1c 16 01 e1 02 | 21 07 60 12 f8 46 20 00 |.$ .....|!.`..F .|
|00002420| 01 e0 17 3c 12 80 12 01 | 22 0f 80 14 3e e1 09 42 |...<....|"...>..B|
|00002430| 0d 87 00 0b c5 a1 e3 8c | 00 46 d8 47 36 03 81 c5 |........|.F.G6...|
|00002440| 87 17 1e e8 e0 c0 60 b0 | 61 2c 38 71 72 58 30 18 |......`.|a,8qrX0.|
|00002450| 07 86 1c 1e 00 60 5c 60 | c5 c7 96 00 c0 e1 02 01 |.....`\`|........|
|00002460| c1 01 83 cf 80 e3 63 c7 | c1 32 3c 0f 8f c4 06 03 |......c.|.2<.....|
|00002470| e3 cf 8f 3c d9 f1 e0 00 | 78 f0 1e 7c f8 f0 3c 78 |...<....|x..|..<x|
|00002480| 00 0f 0f 3e 3c 60 00 3c | f1 e3 cf 0f e1 e0 e1 02 |...><`.<|........|
|00002490| 42 06 18 00 70 c5 06 0c | c3 06 0c 60 19 98 00 66 |B...p...|...`...f|
|000024a0| 02 18 08 60 03 03 20 38 | 41 80 10 c1 80 80 20 c0 |...`.. 8|A..... .|
|000024b0| 31 98 19 66 60 00 c6 21 | 83 02 18 08 f3 23 e1 02 |1..f`..!|.....#..|
|000024c0| 23 0f 81 c1 18 0c 60 86 | 00 e0 00 01 12 f3 c3 ec |#.....`.|........|
|000024d0| 0f 80 c6 01 f3 c0 f9 80 | 00 60 7c f8 00 c0 00 07 |........|.`|.....|
|000024e0| 31 9e 04 c6 00 1c 03 42 | 31 80 03 c0 e1 02 01 c1 |1......B|1.......|
|000024f0| 03 04 cf 03 01 80 00 18 | 02 c3 4c c0 13 00 83 c0 |........|..L.....|
|00002500| 0f 30 00 61 e1 e0 00 03 | 23 00 78 f3 06 01 90 06 |.0.a....|#.x.....|
|00002510| 00 0f 12 c0 c1 18 c0 06 | 4c 00 33 01 e0 e1 02 23 |........|L.3....#|
|00002520| 01 00 c4 18 00 80 86 03 | b8 00 01 00 06 30 40 c1 |........|.....0@.|
|00002530| 00 08 00 24 60 00 18 60 | 06 08 10 00 0c 30 00 02 |...$`..`|.....0..|
|00002540| 23 04 08 63 30 c0 02 00 | 34 62 e1 02 72 01 9f 03 |#..c0...|4b..r...|
|00002550| f0 0f 8f 83 22 18 1f c3 | 06 03 e7 c0 1f 00 f8 03 |...."...|........|
|00002560| e7 c0 f8 03 f0 00 f9 f0 | 00 01 f8 00 3e 3e 7c f8 |........|....>>|.|
|00002570| 72 03 e7 e0 3e 00 07 c2 | e1 02 89 e1 19 20 15 10 |r...>...|..... ..|
|00002580| 19 40 24 01 98 22 19 80 | 0c e1 28 02 40 24 01 20 |.@$.."..|..(.@$. |
|00002590| 28 04 80 64 01 87 ff ff | e1 80 0c e1 28 01 80 15 |(..d....|....(...|
|000025a0| c0 18 03 65 01 87 ff ff | e1 80 0c e2 2e 01 80 22 |...e....|......."|
|000025b0| 01 80 0c a3 85 8a 5f 1e | 00 f0 01 80 33 03 00 f0 |......_.|....3...|
|000025c0| 32 01 8c 60 e1 22 7f e0 | 0d 3f 3f 01 78 26 01 78 |2..`."..|.??.x&.x|
|000025d0| 32 01 80 60 e2 01 89 2f | 4c 81 c2 80 f1 f0 f1 b3 |2..`.../|L.......|
|000025e0| c7 c7 81 80 f0 f9 f1 9e | 63 c7 c0 2d 01 80 22 01 |........|c..-..".|
|000025f0| 80 0c 8a 2f 1e 00 c2 01 | 68 69 68 75 a1 a4 80 01 |.../....|hihu....|
|00002600| 69 60 68 12 05 a1 a0 e1 | 0f 1f 02 15 40 e2 0a 1f |i`h.....|....@...|
|00002610| 02 34 60 01 80 e2 09 1f | 1e 34 78 01 e0 e2 09 3f |.4`.....|.4x....?|
|00002620| 6d 80 08 32 08 00 20 12 | 08 e2 06 8d 1f 20 c2 81 |m..2.. .|..... ..|
|00002630| c5 dc 01 c4 07 10 03 c1 | c5 dd d0 00 0f 07 70 1e |........|......p.|
|00002640| 01 14 40 0c 89 e1 1b 18 | e1 43 7f ff ff fe 0d e1 |..@.....|.C......|
|00002650| 2a 01 18 e1 13 60 12 06 | 0d e1 1b f0 e1 13 60 12 |*....`..|......`.|
|00002660| 06 0d e2 1f 60 12 06 0d | 85 e2 4f 7f ff ff fe 0d |....`...|..O.....|
|00002670| 85 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00002680| 00 00 09 40 42 4b 47 44 | 00 00 0a 2f 00 00 10 d8 |...@BKGD|.../....|
|00002690| 00 00 00 00 00 00 00 18 | 00 00 21 27 00 00 28 86 |........|..!'..(.|
|000026a0| 00 0c 00 1a 00 00 05 c0 | 00 00 00 00 00 00 00 28 |........|.......(|
|000026b0| 00 06 02 01 00 c4 00 0d | 01 3b 01 e3 00 07 00 00 |........|.;......|
|000026c0| 00 00 00 00 00 04 00 09 | 00 00 00 0c 53 6f 75 72 |........|....Sour|
|000026d0| 63 65 00 00 00 00 00 68 | 00 08 01 00 01 3e 01 de |ce.....h|.....>..|
|000026e0| 01 55 01 f7 00 00 00 00 | 18 23 00 01 00 00 00 0c |.U......|.#......|
|000026f0| 00 00 00 10 4e 65 78 74 | 00 00 6f 6e 20 6d 6f 75 |....Next|..on mou|
|00002700| 73 65 55 70 0d 73 65 74 | 20 74 68 65 20 6c 6f 63 |seUp.set| the loc|
|00002710| 6b 53 63 72 65 65 6e 20 | 74 6f 20 74 72 75 65 0d |kScreen |to true.|
|00002720| 67 6f 20 74 6f 20 6e 65 | 78 74 20 63 61 72 64 0d |go to ne|xt card.|
|00002730| 65 6e 64 20 6d 6f 75 73 | 65 55 70 0d 00 00 00 68 |end mous|eUp....h|
|00002740| 00 09 01 00 01 3c 00 0e | 01 53 00 28 00 00 00 00 |.....<..|.S.(....|
|00002750| 19 3c 00 01 00 00 00 0c | 00 00 00 10 50 72 65 76 |.<......|....Prev|
|00002760| 00 00 6f 6e 20 6d 6f 75 | 73 65 55 70 0d 73 65 74 |..on mou|seUp.set|
|00002770| 20 74 68 65 20 6c 6f 63 | 6b 53 63 72 65 65 6e 20 | the loc|kScreen |
|00002780| 74 6f 20 74 72 75 65 0d | 67 6f 20 74 6f 20 70 72 |to true.|go to pr|
|00002790| 65 76 20 63 61 72 64 0d | 65 6e 64 20 6d 6f 75 73 |ev card.|end mous|
|000027a0| 65 55 70 0d 00 00 01 42 | 00 10 01 00 01 3e 00 4a |eUp....B|.....>.J|
|000027b0| 01 52 00 bb 80 03 00 00 | 00 00 00 01 00 00 00 0c |.R......|........|
|000027c0| 00 00 00 10 43 72 65 61 | 74 65 20 50 72 6f 67 72 |....Crea|te Progr|
|000027d0| 61 6d 00 00 6f 6e 20 6d | 6f 75 73 65 55 70 0d 41 |am..on m|ouseUp.A|
|000027e0| 6e 73 77 65 72 20 22 43 | 72 65 61 74 65 20 74 68 |nswer "C|reate th|
|000027f0| 65 20 50 61 73 63 61 6c | 20 50 72 6f 67 72 61 6d |e Pascal| Program|
|00002800| 3f 22 20 77 69 74 68 20 | 22 4f 4b 22 20 6f 72 20 |?" with |"OK" or |
|00002810| 22 43 61 6e 63 65 6c 22 | 0d 69 66 20 69 74 20 3d |"Cancel"|.if it =|
|00002820| 20 22 4f 4b 22 20 74 68 | 65 6e 0d 70 75 74 20 74 | "OK" th|en.put t|
|00002830| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 69 73 20 |he name |of this |
|00002840| 63 61 72 64 20 69 6e 74 | 6f 20 69 74 0d 70 75 74 |card int|o it.put|
|00002850| 20 73 65 63 6f 6e 64 20 | 77 6f 72 64 20 6f 66 20 | second |word of |
|00002860| 69 74 20 69 6e 74 6f 20 | 69 74 0d 64 65 6c 65 74 |it into |it.delet|
|00002870| 65 20 66 69 72 73 74 20 | 63 68 61 72 20 6f 66 20 |e first |char of |
|00002880| 69 74 0d 64 65 6c 65 74 | 65 20 6c 61 73 74 20 63 |it.delet|e last c|
|00002890| 68 61 72 20 6f 66 20 69 | 74 0d 6f 70 65 6e 20 66 |har of i|t.open f|
|000028a0| 69 6c 65 20 69 74 0d 77 | 72 69 74 65 20 66 69 65 |ile it.w|rite fie|
|000028b0| 6c 64 20 73 6f 75 72 63 | 65 20 74 6f 20 66 69 6c |ld sourc|e to fil|
|000028c0| 65 20 69 74 0d 63 6c 6f | 73 65 20 66 69 6c 65 20 |e it.clo|se file |
|000028d0| 69 74 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 6d 6f |it.end i|f.end mo|
|000028e0| 75 73 65 55 70 0d 00 00 | 00 2e 00 11 02 01 00 2d |useUp...|.......-|
|000028f0| 00 0d 00 aa 01 e3 00 07 | 00 00 00 00 00 00 00 04 |........|........|
|00002900| 00 09 00 00 00 0c 44 6f | 63 75 6d 65 6e 74 61 74 |......Do|cumentat|
|00002910| 69 6f 6e 00 00 00 00 6e | 00 12 01 00 01 3e 00 c2 |ion....n|.....>..|
|00002920| 01 52 01 00 80 03 00 00 | 00 00 00 01 00 00 00 0c |.R......|........|
|00002930| 00 00 00 10 49 6e 64 65 | 78 00 00 6f 6e 20 6d 6f |....Inde|x..on mo|
|00002940| 75 73 65 55 70 0d 2d 2d | 73 65 74 20 74 68 65 20 |useUp.--|set the |
|00002950| 6c 6f 63 6b 53 63 72 65 | 65 6e 20 74 6f 20 74 72 |lockScre|en to tr|
|00002960| 75 65 0d 67 6f 20 74 6f | 20 63 61 72 64 20 69 64 |ue.go to| card id|
|00002970| 20 35 37 35 30 0d 65 6e | 64 20 6d 6f 75 73 65 55 | 5750.en|d mouseU|
|00002980| 70 0d 0d 00 01 54 00 13 | 01 00 01 3e 01 07 01 52 |p....T..|...>...R|
|00002990| 01 6b 80 03 00 00 00 00 | 00 01 00 00 00 0c 00 00 |.k......|........|
|000029a0| 00 10 49 6e 74 72 6f 64 | 75 63 74 69 6f 6e 00 00 |..Introd|uction..|
|000029b0| 6f 6e 20 6d 6f 75 73 65 | 55 70 0d 73 65 74 20 74 |on mouse|Up.set t|
|000029c0| 68 65 20 6c 6f 63 6b 53 | 63 72 65 65 6e 20 74 6f |he lockS|creen to|
|000029d0| 20 74 72 75 65 0d 67 6f | 20 74 6f 20 63 61 72 64 | true.go| to card|
|000029e0| 20 69 64 20 32 32 34 34 | 0d 73 65 74 20 74 68 65 | id 2244|.set the|
|000029f0| 20 6c 6f 63 6b 73 63 72 | 65 65 6e 20 74 6f 20 66 | lockscr|een to f|
|00002a00| 61 6c 73 65 0d 73 65 74 | 20 76 69 73 69 62 6c 65 |alse.set| visible|
|00002a10| 20 6f 66 20 46 69 65 6c | 64 20 44 6f 63 75 6d 65 | of Fiel|d Docume|
|00002a20| 6e 74 61 74 69 6f 6e 20 | 74 6f 20 46 61 6c 73 65 |ntation |to False|
|00002a30| 0d 73 65 74 20 76 69 73 | 69 62 6c 65 20 6f 66 20 |.set vis|ible of |
|00002a40| 46 69 65 6c 64 20 53 6f | 75 72 63 65 20 74 6f 20 |Field So|urce to |
|00002a50| 46 61 6c 73 65 0d 73 65 | 74 20 76 69 73 69 62 6c |False.se|t visibl|
|00002a60| 65 20 6f 66 20 42 41 43 | 4b 47 52 4f 55 4e 44 20 |e of BAC|KGROUND |
|00002a70| 62 75 74 74 6f 6e 20 22 | 49 6e 74 72 6f 64 75 63 |button "|Introduc|
|00002a80| 74 69 6f 6e 22 20 74 6f | 20 46 61 6c 73 65 0d 73 |tion" to| False.s|
|00002a90| 65 74 20 76 69 73 69 62 | 6c 65 20 6f 66 20 42 41 |et visib|le of BA|
|00002aa0| 43 4b 47 52 4f 55 4e 44 | 20 62 75 74 74 6f 6e 20 |CKGROUND| button |
|00002ab0| 22 43 72 65 61 74 65 20 | 50 72 6f 67 72 61 6d 22 |"Create |Program"|
|00002ac0| 20 74 6f 20 46 61 6c 73 | 65 0d 65 6e 64 20 6d 6f | to Fals|e.end mo|
|00002ad0| 75 73 65 55 70 0d 0d 00 | 00 62 00 14 01 00 01 3f |useUp...|.b.....?|
|00002ae0| 01 70 01 52 01 88 00 00 | 00 00 55 57 00 01 00 00 |.p.R....|..UW....|
|00002af0| 00 0c 00 00 00 10 47 6f | 20 68 6f 6d 65 00 00 6f |......Go| home..o|
|00002b00| 6e 20 6d 6f 75 73 65 55 | 70 0d 73 65 74 20 74 68 |n mouseU|p.set th|
|00002b10| 65 20 6c 6f 63 6b 53 63 | 72 65 65 6e 20 74 6f 20 |e lockSc|reen to |
|00002b20| 74 72 75 65 0d 67 6f 20 | 68 6f 6d 65 0d 65 6e 64 |true.go |home.end|
|00002b30| 20 6d 6f 75 73 65 55 70 | 0d 00 00 26 00 16 02 00 | mouseUp|...&....|
|00002b40| 00 b2 00 45 00 c5 00 cb | 00 00 00 00 00 00 00 00 |...E....|........|
|00002b50| 00 00 00 0c 00 00 00 10 | 4e 41 4d 45 32 00 00 00 |........|NAME2...|
|00002b60| 00 26 00 17 02 00 00 1d | 00 75 00 30 00 fb 00 00 |.&......|.u.0....|
|00002b70| 00 00 00 00 00 00 00 00 | 00 0c 00 00 00 10 4e 41 |........|......NA|
|00002b80| 4d 45 31 00 00 00 00 c2 | 00 19 01 80 01 3d 00 7e |ME1.....|.....=.~|
|00002b90| 01 51 00 da a0 03 00 00 | 00 00 00 01 00 00 00 0c |.Q......|........|
|00002ba0| 00 00 00 10 73 68 6f 77 | 20 6d 65 6e 75 00 00 6f |....show| menu..o|
|00002bb0| 6e 20 6d 6f 75 73 65 55 | 70 0d 73 65 74 20 74 68 |n mouseU|p.set th|
|00002bc0| 65 20 76 69 73 69 62 6c | 65 20 6f 66 20 62 61 63 |e visibl|e of bac|
|00002bd0| 6b 67 72 6f 75 6e 64 20 | 62 75 74 74 6f 6e 20 22 |kground |button "|
|00002be0| 73 68 6f 77 20 6d 65 6e | 75 22 20 74 6f 20 66 61 |show men|u" to fa|
|00002bf0| 6c 73 65 0d 73 65 74 20 | 74 68 65 20 76 69 73 69 |lse.set |the visi|
|00002c00| 62 6c 65 20 6f 66 20 62 | 61 63 6b 67 72 6f 75 6e |ble of b|ackgroun|
|00002c10| 64 20 62 75 74 74 6f 6e | 20 22 68 69 64 65 20 6d |d button| "hide m|
|00002c20| 65 6e 75 22 20 74 6f 20 | 74 72 75 65 0d 73 68 6f |enu" to |true.sho|
|00002c30| 77 20 6d 65 6e 75 62 61 | 72 0d 65 6e 64 20 6d 6f |w menuba|r.end mo|
|00002c40| 75 73 65 55 70 0d 00 00 | 00 26 00 1a 02 00 01 42 |useUp...|.&.....B|
|00002c50| 01 c4 01 55 01 de 00 01 | 00 00 00 00 00 00 00 03 |...U....|........|
|00002c60| 00 0c 00 00 00 10 70 61 | 67 65 00 00 00 00 00 6f |......pa|ge.....o|
|00002c70| 6e 20 6f 70 65 6e 53 74 | 61 63 6b 0d 68 69 64 65 |n openSt|ack.hide|
|00002c80| 20 6d 65 73 73 61 67 65 | 20 62 6f 78 0d 73 68 6f | message| box.sho|
|00002c90| 77 20 6d 65 6e 75 42 61 | 72 0d 70 61 73 73 20 6f |w menuBa|r.pass o|
|00002ca0| 70 65 6e 53 74 61 63 6b | 0d 65 6e 64 20 6f 70 65 |penStack|.end ope|
|00002cb0| 6e 53 74 61 63 6b 0d 0d | 6f 6e 20 6f 70 65 6e 63 |nStack..|on openc|
|00002cc0| 61 72 64 0d 70 75 74 20 | 74 68 65 20 6e 61 6d 65 |ard.put |the name|
|00002cd0| 20 6f 66 20 74 68 69 73 | 20 63 61 72 64 20 69 6e | of this| card in|
|00002ce0| 74 6f 20 69 74 0d 70 75 | 74 20 73 65 63 6f 6e 64 |to it.pu|t second|
|00002cf0| 20 77 6f 72 64 20 6f 66 | 20 69 74 20 69 6e 74 6f | word of| it into|
|00002d00| 20 69 74 0d 64 65 6c 65 | 74 65 20 66 69 72 73 74 | it.dele|te first|
|00002d10| 20 63 68 61 72 20 6f 66 | 20 69 74 0d 64 65 6c 65 | char of| it.dele|
|00002d20| 74 65 20 6c 61 73 74 20 | 63 68 61 72 20 6f 66 20 |te last |char of |
|00002d30| 69 74 0d 70 75 74 20 69 | 74 20 69 6e 74 6f 20 62 |it.put i|t into b|
|00002d40| 61 63 6b 67 72 6f 75 6e | 64 20 66 69 65 6c 64 20 |ackgroun|d field |
|00002d50| 22 4e 41 4d 45 32 22 0d | 70 75 74 20 69 74 20 69 |"NAME2".|put it i|
|00002d60| 6e 74 6f 20 62 61 63 6b | 67 72 6f 75 6e 64 20 66 |nto back|ground f|
|00002d70| 69 65 6c 64 20 22 4e 41 | 4d 45 31 22 0d 65 6e 64 |ield "NA|ME1".end|
|00002d80| 20 6f 70 65 6e 63 61 72 | 64 0d 00 00 1f 01 1f 01 | opencar|d.......|
|00002d90| 1f 01 2b 00 00 00 e8 00 | 03 00 05 01 fb 01 fd 7f |..+.....|........|
|00002da0| ff 01 0d 65 6e 64 20 6f | 70 65 6e 63 61 72 64 0d |...end o|pencard.|
|00002db0| 00 00 1f 01 1f 01 1f 01 | 2b 00 00 00 e8 00 03 00 |........|+.......|
|00002dc0| 05 01 fb 01 fd 7f ff 01 | 56 00 56 00 56 00 56 00 |........|V.V.V.V.|
|00002dd0| 20 5a fd 7f ff 01 56 00 | 56 00 56 00 56 00 20 5a | Z....V.|V.V.V. Z|
|00002de0| 60 00 47 18 00 01 60 05 | 00 00 00 68 20 12 02 26 |`.G...`.|...h ..&|
|00002df0| 60 00 60 00 47 18 00 01 | 60 05 00 00 00 68 20 12 |`.`.G...|`....h .|
|00002e00| 20 5a 60 00 47 18 00 01 | 60 05 00 00 00 68 20 12 | Z`.G...|`....h .|
|00002e10| 02 26 60 00 60 00 47 18 | 00 01 60 05 00 00 00 68 |.&`.`.G.|..`....h|
|00002e20| 20 12 02 26 60 00 32 d2 | d2 e5 c1 80 00 5e 00 29 | ..&`.2.|.....^.)|
|00002e30| 60 a0 5a 03 bf 81 bf 81 | bf 81 bf 81 00 00 06 48 |`.Z.....|.......H|
|00002e40| 00 02 16 00 00 00 06 40 | 42 4d 41 50 00 00 16 73 |.......@|BMAP...s|
|00002e50| 00 00 00 00 00 01 00 00 | 00 00 00 00 01 56 02 00 |........|.....V..|
|00002e60| 00 10 00 0b 00 4b 01 72 | 00 04 00 0d 00 4e 01 fd |.....K.r|.....N..|
|00002e70| 00 00 00 00 00 00 00 00 | 00 00 00 20 00 00 05 d8 |........|... ....|
|00002e80| 8d 11 08 e2 1b 02 02 ba | 85 11 18 e2 3b 02 20 00 |........|....;. .|
|00002e90| af 85 11 10 1c 01 e1 11 | 04 2d 20 00 af 85 10 40 |........|.- ....@|
|00002ea0| e3 39 7f ff f8 04 e3 58 | 3f 80 00 07 f0 03 e3 27 |.9.....X|?......'|
|00002eb0| 07 c0 23 0f 80 02 e3 17 | 38 15 70 02 e3 26 01 c0 |..#.....|8.p..&..|
|00002ec0| 15 0e 02 e3 16 0e 36 01 | c0 00 e3 16 30 27 30 00 |......6.|....0'0.|
|00002ed0| e3 16 40 27 08 00 e3 25 | 01 80 27 06 00 e3 15 02 |..@'...%|..'.....|
|00002ee0| 28 01 00 e3 15 0c 19 c0 | e3 15 08 73 01 08 02 00 |(.......|...s....|
|00002ef0| a2 20 40 e3 15 10 73 02 | 00 02 00 b2 00 00 05 88 |. @...s.|........|
|00002f00| 20 73 04 08 8a 41 2a 08 | 10 e3 15 20 73 04 08 52 | s...A*.|... s..R|
|00002f10| 81 26 08 10 e3 35 40 00 | 07 c1 e0 04 08 23 82 22 |.&...5@.|.....#."|
|00002f20| 08 08 e3 35 40 88 02 c1 | 20 02 08 52 42 22 10 08 |...5@...| ..RB"..|
|00002f30| 8a e1 15 01 16 10 15 80 | e1 23 d8 03 c1 20 e3 00 |........|.#... ..|
|00002f40| d8 66 00 30 00 89 11 01 | 32 80 00 02 1a 40 33 03 |.f.0....|2....@3.|
|00002f50| 00 80 24 30 e0 18 20 57 | 40 23 e0 81 10 12 04 12 |..$0.. W|@#......|
|00002f60| 08 8a e1 25 06 01 25 60 | 10 25 03 f8 e1 41 03 e0 |...%..%`|.%...A..|
|00002f70| 00 e0 12 04 08 52 42 22 | 10 08 8a e1 15 01 16 10 |.....RB"|........|
|00002f80| 15 80 e1 23 d8 03 c1 20 | e3 00 d8 66 00 30 00 89 |...#... |...f.0..|
|00002f90| 11 01 32 80 00 02 1a 40 | 33 03 00 80 24 30 00 01 |..2....@|3...$0..|
|00002fa0| e0 18 20 57 40 23 e0 81 | 10 12 04 12 08 8a e1 25 |.. W@#..|.......%|
|00002fb0| 06 01 25 60 10 25 03 f8 | e1 41 03 e0 00 e0 12 04 |..%`.%..|.A......|
|00002fc0| 00 00 02 60 46 52 45 45 | 00 00 00 00 13 46 72 65 |...`FREE|.....Fre|
|00002fd0| 65 20 4f 62 6a 65 63 74 | 20 20 20 20 20 20 20 20 |e Object| |
|00002fe0| 00 00 0a 2f 00 00 00 00 | 00 00 00 00 00 04 00 00 |.../....|........|
|00002ff0| 00 14 00 06 0d 0d 0d 0d | 0d 00 00 16 61 00 00 17 |........|....a...|
|00003000| 61 00 00 1a 31 00 61 00 | 6f 6e 20 69 64 6c 65 0d |a...1.a.|on idle.|
|00003010| 73 65 74 20 76 69 73 69 | 62 6c 65 20 6f 66 20 46 |set visi|ble of F|
|00003020| 69 65 6c 64 20 44 6f 63 | 75 6d 65 6e 74 61 74 69 |ield Doc|umentati|
|00003030| 6f 6e 20 74 6f 20 46 61 | 6c 73 65 0d 73 65 74 20 |on to Fa|lse.set |
|00003040| 76 69 73 69 62 6c 65 20 | 6f 66 20 46 69 65 6c 64 |visible |of Field|
|00003050| 20 53 6f 75 72 63 65 20 | 74 6f 20 46 61 6c 73 65 | Source |to False|
|00003060| 0d 73 65 74 20 76 69 73 | 69 62 6c 65 20 6f 66 20 |.set vis|ible of |
|00003070| 42 41 43 4b 47 52 4f 55 | 4e 44 20 62 75 74 74 6f |BACKGROU|ND butto|
|00003080| 6e 20 22 49 6e 74 72 6f | 64 75 63 74 69 6f 6e 22 |n "Intro|duction"|
|00003090| 20 74 6f 20 46 61 6c 73 | 65 0d 73 65 74 20 76 69 | to Fals|e.set vi|
|000030a0| 73 69 62 6c 65 20 6f 66 | 20 42 41 43 4b 47 52 4f |sible of| BACKGRO|
|000030b0| 55 4e 44 20 62 75 74 74 | 6f 6e 20 22 43 72 65 61 |UND butt|on "Crea|
|000030c0| 74 65 20 50 72 6f 67 72 | 61 6d 22 20 74 6f 20 46 |te Progr|am" to F|
|000030d0| 61 6c 73 65 0d 73 65 74 | 20 6c 6f 63 6b 73 63 72 |alse.set| lockscr|
|000030e0| 65 65 6e 20 74 6f 20 66 | 61 6c 73 65 0d 67 65 74 |een to f|alse.get|
|000030f0| 20 6d 73 67 0d 69 66 20 | 69 74 20 69 73 20 6e 6f | msg.if |it is no|
|00003100| 74 20 22 73 74 6f 70 22 | 20 74 68 65 6e 0d 76 69 |t "stop"| then.vi|
|00003110| 73 75 61 6c 20 69 72 69 | 73 20 6f 70 65 6e 0d 77 |sual iri|s open.w|
|00003120| 61 69 74 20 32 20 73 65 | 63 6f 6e 64 73 0d 67 6f |ait 2 se|conds.go|
|00003130| 20 74 6f 20 63 61 72 64 | 20 69 64 20 33 38 34 38 | to card| id 3848|
|00003140| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 69 64 6c 65 |.end if.|end idle|
|00003150| 00 14 78 65 0e 0a c1 01 | 80 08 00 02 67 65 74 20 |..xe....|....get |
|00003160| 6d 73 67 0d 69 66 20 69 | 74 20 69 73 20 6e 6f 74 |msg.if i|t is not|
|00003170| 20 22 73 74 6f 70 22 20 | 74 68 65 6e 0d 76 69 73 | "stop" |then.vis|
|00003180| 75 61 6c 20 69 72 69 73 | 20 6f 70 65 6e 0d 77 61 |ual iris| open.wa|
|00003190| 69 74 20 32 20 73 65 63 | 6f 6e 64 73 0d 67 6f 20 |it 2 sec|onds.go |
|000031a0| 74 6f 20 63 61 72 64 20 | 69 64 20 33 38 34 38 0d |to card |id 3848.|
|000031b0| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 64 6c 65 00 |end if.e|nd idle.|
|000031c0| 00 00 01 20 00 05 c5 28 | 22 65 00 03 00 00 00 83 |... ...(|"e......|
|000031d0| 00 07 da 70 00 00 00 00 | 80 0c a2 85 12 42 38 20 |...p....|.....B8 |
|000031e0| 00 00 00 40 46 52 45 45 | 00 00 00 00 13 46 72 65 |...@FREE|.....Fre|
|000031f0| 65 20 4f 62 6a 65 63 74 | 20 20 20 20 20 20 20 20 |e Object| |
|00003200| 00 00 14 f0 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003210| 00 00 00 00 00 00 0a 2f | 00 10 00 10 00 00 03 7c |......./|.......||
|00003220| 00 00 0b 00 43 41 52 44 | 00 00 11 a2 00 00 00 00 |....CARD|........|
|00003230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003240| 00 00 0a 2f 00 00 00 00 | 00 00 00 00 00 05 00 00 |.../....|........|
|00003250| 0a a4 00 16 44 65 72 66 | 2e 50 61 73 73 00 00 17 |....Derf|.Pass...|
|00003260| 44 65 72 66 2e 50 61 73 | 73 00 00 11 44 45 52 46 |Derf.Pas|s...DERF|
|00003270| 5b 66 75 6e 63 74 69 6f | 6e 5d 0d 0d 50 55 52 50 |[functio|n]..PURP|
|00003280| 4f 53 45 0d 54 68 65 20 | 44 45 52 46 20 66 75 6e |OSE.The |DERF fun|
|00003290| 63 74 69 6f 6e 20 65 76 | 61 6c 75 61 74 65 73 20 |ction ev|aluates |
|000032a0| 74 68 65 20 69 6e 74 65 | 67 72 61 6c 20 28 53 51 |the inte|gral (SQ|
|000032b0| 52 54 28 34 2f b9 29 ba | 65 78 70 28 2d 78 5e 32 |RT(4/.).|exp(-x^2|
|000032c0| 29 64 78 29 20 66 72 6f | 6d 20 7a 65 72 6f 20 74 |)dx) fro|m zero t|
|000032d0| 6f 20 73 6f 6d 65 20 58 | 2e 0d 0d 0d 54 59 50 45 |o some X|....TYPE|
|000032e0| 20 52 45 51 55 49 52 45 | 4d 45 4e 54 53 0d 0d 54 | REQUIRE|MENTS..T|
|000032f0| 59 50 45 0d 46 4c 4f 41 | 54 20 3d 20 45 58 54 45 |YPE.FLOA|T = EXTE|
|00003300| 4e 44 45 44 20 4f 52 20 | 44 4f 55 42 4c 45 20 4f |NDED OR |DOUBLE O|
|00003310| 52 20 52 45 41 4c 3b 0d | 0d 0d 0d 0d 49 74 20 69 |R REAL;.|....It i|
|00003320| 73 20 68 69 67 68 6c 79 | 20 72 65 63 6f 6d 65 6e |s highly| recomen|
|00003330| 64 65 64 20 74 68 61 74 | 20 74 68 65 20 65 78 74 |ded that| the ext|
|00003340| 65 6e 64 65 64 20 70 72 | 65 63 69 73 69 6f 6e 20 |ended pr|ecision |
|00003350| 76 61 72 69 61 62 6c 65 | 73 20 62 65 20 75 73 65 |variable|s be use|
|00003360| 64 20 66 6f 72 20 74 68 | 69 73 20 66 75 6e 63 74 |d for th|is funct|
|00003370| 69 6f 6e 2e 20 20 47 72 | 65 61 74 20 70 61 69 6e |ion. Gr|eat pain|
|00003380| 73 20 77 65 72 65 20 74 | 61 6b 65 6e 20 74 6f 20 |s were t|aken to |
|00003390| 65 6e 61 62 6c 65 20 74 | 68 69 73 20 66 75 6e 63 |enable t|his func|
|000033a0| 74 69 6f 6e 20 74 6f 20 | 62 65 20 61 63 63 75 72 |tion to |be accur|
|000033b0| 61 74 65 2e 20 20 54 68 | 65 20 61 63 63 75 72 61 |ate. Th|e accura|
|000033c0| 63 79 20 63 61 6e 20 6f | 6e 6c 79 20 62 65 20 72 |cy can o|nly be r|
|000033d0| 65 61 6c 69 7a 65 64 20 | 69 66 20 74 68 65 20 65 |ealized |if the e|
|000033e0| 78 74 65 6e 64 65 64 20 | 70 72 65 63 69 73 69 6f |xtended |precisio|
|000033f0| 6e 20 6e 75 6d 62 65 72 | 73 20 61 72 65 20 75 73 |n number|s are us|
|00003400| 65 64 2e 20 20 54 68 65 | 20 66 75 6e 63 74 69 6f |ed. The| functio|
|00003410| 6e 20 75 73 65 73 20 72 | 65 66 65 72 65 6e 63 65 |n uses r|eference|
|00003420| 73 20 74 61 6b 65 6e 20 | 66 72 6f 6d 20 4e 61 74 |s taken |from Nat|
|00003430| 69 6f 6e 61 6c 20 42 75 | 72 65 61 75 20 6f 66 20 |ional Bu|reau of |
|00003440| 53 74 61 6e 64 61 72 64 | 73 20 61 63 63 75 72 61 |Standard|s accura|
|00003450| 74 65 20 74 6f 20 31 35 | 20 64 69 67 69 74 73 2e |te to 15| digits.|
|00003460| 20 20 54 68 65 73 65 20 | 72 65 66 65 72 65 6e 63 | These |referenc|
|00003470| 65 73 20 64 69 63 74 61 | 74 65 64 20 74 68 65 20 |es dicta|ted the |
|00003480| 61 63 63 75 72 61 63 79 | 20 6f 66 20 74 68 65 20 |accuracy| of the |
|00003490| 66 75 6e 63 74 69 6f 6e | 2e 20 0d 0d 0d 43 41 4c |function|. ...CAL|
|000034a0| 4c 49 4e 47 20 50 52 4f | 43 45 44 55 52 45 0d 0d |LING PRO|CEDURE..|
|000034b0| 56 41 52 0d 59 4f 55 54 | 3a 46 4c 4f 41 54 3b 7b |VAR.YOUT|:FLOAT;{|
|000034c0| 4f 75 74 70 75 74 20 6f | 66 20 74 68 65 20 66 75 |Output o|f the fu|
|000034d0| 6e 63 74 69 6f 6e 7d 0d | 58 49 4e 3a 46 4c 4f 41 |nction}.|XIN:FLOA|
|000034e0| 54 3b 7b 46 75 6e 63 74 | 69 6f 6e 20 69 6e 70 75 |T;{Funct|ion inpu|
|000034f0| 74 7d 0d 0d 59 4f 55 54 | 3a 3d 44 45 52 46 28 58 |t}..YOUT|:=DERF(X|
|00003500| 49 4e 29 3b 0d 0d 0d 45 | 58 41 4d 50 4c 45 0d 0d |IN);...E|XAMPLE..|
|00003510| 54 68 65 20 44 45 52 46 | 20 66 75 6e 63 74 69 6f |The DERF| functio|
|00003520| 6e 20 69 73 20 72 65 6c | 61 74 65 64 20 74 6f 20 |n is rel|ated to |
|00003530| 74 68 65 20 61 72 65 61 | 20 75 6e 64 65 72 20 74 |the area| under t|
|00003540| 68 65 20 53 74 61 6e 64 | 61 72 64 20 4e 6f 72 6d |he Stand|ard Norm|
|00003550| 61 6c 20 43 75 72 76 65 | 2e 20 20 54 68 65 20 65 |al Curve|. The e|
|00003560| 78 61 6d 70 6c 65 20 73 | 68 6f 77 73 20 74 68 69 |xample s|hows thi|
|00003570| 73 20 72 65 6c 61 74 69 | 6f 6e 73 68 69 70 20 61 |s relati|onship a|
|00003580| 6e 64 20 70 72 69 6e 74 | 73 20 74 68 65 20 61 72 |nd print|s the ar|
|00003590| 65 61 20 75 6e 64 65 72 | 20 74 68 65 20 73 74 61 |ea under| the sta|
|000035a0| 6e 64 61 72 64 20 6e 6f | 72 6d 61 6c 20 63 75 72 |ndard no|rmal cur|
|000035b0| 76 65 20 66 6f 72 20 2d | b0 20 74 6f 20 78 20 77 |ve for -|. to x w|
|000035c0| 68 65 72 65 20 78 20 3d | 20 30 20 74 6f 20 34 2e |here x =| 0 to 4.|
|000035d0| 0d 0d 52 45 46 45 52 45 | 4e 43 45 53 0d 0d 54 61 |..REFERE|NCES..Ta|
|000035e0| 62 6c 65 73 20 6f 66 20 | 74 68 65 20 45 72 72 6f |bles of |the Erro|
|000035f0| 72 20 46 75 6e 63 74 69 | 6f 6e 20 61 6e 64 20 49 |r Functi|on and I|
|00003600| 74 27 73 20 44 65 72 69 | 76 61 74 69 76 65 2c 20 |t's Deri|vative, |
|00003610| 55 2e 20 53 2e 20 44 65 | 70 61 72 74 6d 65 6e 74 |U. S. De|partment|
|00003620| 20 6f 66 20 43 6f 6d 6d | 65 72 63 65 2c 20 4e 61 | of Comm|erce, Na|
|00003630| 74 69 6f 6e 61 6c 20 42 | 75 72 65 61 75 20 6f 66 |tional B|ureau of|
|00003640| 20 53 74 61 6e 64 61 72 | 64 73 2c 20 57 61 73 68 | Standar|ds, Wash|
|00003650| 69 6e 67 74 6f 6e 2c 20 | 31 39 35 34 2e 0d 0d 4a |ington, |1954...J|
|00003660| 61 6d 65 73 2c 20 4d 2e | 20 4c 2e 2c 20 53 6d 69 |ames, M.| L., Smi|
|00003670| 74 68 2c 20 47 2e 20 4d | 2e 2c 20 57 6f 6c 66 6f |th, G. M|., Wolfo|
|00003680| 72 64 2c 20 4a 2e 20 43 | 2e 3a 20 20 41 70 70 6c |rd, J. C|.: Appl|
|00003690| 69 65 64 20 4e 75 6d 65 | 72 69 63 61 6c 20 4d 65 |ied Nume|rical Me|
|000036a0| 74 68 6f 64 73 20 66 6f | 72 20 44 69 67 69 74 61 |thods fo|r Digita|
|000036b0| 6c 20 43 6f 6d 70 75 74 | 61 74 69 6f 6e 20 57 69 |l Comput|ation Wi|
|000036c0| 74 68 20 46 6f 72 74 72 | 61 6e 20 61 6e 64 20 43 |th Fortr|an and C|
|000036d0| 53 4d 50 2c 20 48 61 72 | 70 65 72 20 61 6e 64 20 |SMP, Har|per and |
|000036e0| 52 6f 77 2c 20 4e 65 77 | 20 59 6f 72 6b 2c 20 31 |Row, New| York, 1|
|000036f0| 39 37 37 2e 20 0d 00 00 | 1a 37 00 00 06 50 52 4f |977. ...|.7...PRO|
|00003700| 47 52 41 4d 20 54 45 53 | 54 5f 44 45 52 46 3b 0d |GRAM TES|T_DERF;.|
|00003710| 54 59 50 45 0d 46 4c 4f | 41 54 20 3d 20 52 45 41 |TYPE.FLO|AT = REA|
|00003720| 4c 3b 0d 46 49 58 58 45 | 44 20 3d 20 49 4e 54 45 |L;.FIXXE|D = INTE|
|00003730| 47 45 52 3b 0d 56 41 52 | 0d 41 52 45 41 2c 20 58 |GER;.VAR|.AREA, X|
|00003740| 49 4e 20 3a 20 46 4c 4f | 41 54 3b 0d 49 58 20 3a |IN : FLO|AT;.IX :|
|00003750| 20 46 49 58 58 45 44 3b | 0d 50 52 4f 43 45 44 55 | FIXXED;|.PROCEDU|
|00003760| 52 45 20 73 65 65 3b 0d | 56 41 52 0d 52 20 3a 20 |RE see;.|VAR.R : |
|00003770| 52 65 63 74 3b 0d 42 45 | 47 49 4e 0d 48 69 64 65 |Rect;.BE|GIN.Hide|
|00003780| 41 6c 6c 3b 0d 53 65 74 | 52 65 63 74 28 52 2c 20 |All;.Set|Rect(R, |
|00003790| 30 2c 20 33 35 2c 20 35 | 35 30 2c 20 33 33 30 29 |0, 35, 5|50, 330)|
|000037a0| 3b 0d 53 65 74 74 65 78 | 74 52 65 63 74 28 52 29 |;.Settex|tRect(R)|
|000037b0| 3b 0d 53 68 6f 77 74 65 | 78 74 3b 0d 45 4e 44 3b |;.Showte|xt;.END;|
|000037c0| 0d 46 55 4e 43 54 49 4f | 4e 20 44 45 52 46 20 28 |.FUNCTIO|N DERF (|
|000037d0| 58 49 4e 20 3a 20 46 4c | 4f 41 54 29 20 3a 20 46 |XIN : FL|OAT) : F|
|000037e0| 4c 4f 41 54 3b 0d 56 41 | 52 0d 48 2c 20 53 55 4d |LOAT;.VA|R.H, SUM|
|000037f0| 2c 20 58 2c 20 58 53 54 | 41 52 54 2c 20 58 45 4e |, X, XST|ART, XEN|
|00003800| 44 2c 20 54 45 4d 50 20 | 3a 20 46 4c 4f 41 54 3b |D, TEMP |: FLOAT;|
|00003810| 0d 46 20 3a 20 41 52 52 | 41 59 5b 30 2e 2e 36 5d |.F : ARR|AY[0..6]|
|00003820| 20 4f 46 20 46 4c 4f 41 | 54 3b 0d 56 20 3a 20 41 | OF FLOA|T;.V : A|
|00003830| 52 52 41 59 5b 30 2e 2e | 31 33 5d 20 4f 46 20 46 |RRAY[0..|13] OF F|
|00003840| 4c 4f 41 54 3b 0d 49 2c | 20 4a 2c 20 4b 2c 20 4d |LOAT;.I,| J, K, M|
|00003850| 55 4c 54 2c 20 4e 20 3a | 20 46 49 58 58 45 44 3b |ULT, N :| FIXXED;|
|00003860| 0d 42 45 47 49 4e 0d 56 | 5b 30 5d 20 3a 3d 20 30 |.BEGIN.V|[0] := 0|
|00003870| 2e 30 3b 0d 56 5b 31 5d | 20 3a 3d 20 30 2e 35 32 |.0;.V[1]| := 0.52|
|00003880| 30 34 39 39 38 37 37 38 | 31 33 30 34 37 3b 0d 56 |04998778|13047;.V|
|00003890| 5b 32 5d 20 3a 3d 20 30 | 2e 38 34 32 37 30 30 37 |[2] := 0|.8427007|
|000038a0| 39 32 39 34 39 37 31 35 | 3b 0d 56 5b 33 5d 20 3a |92949715|;.V[3] :|
|000038b0| 3d 20 30 2e 39 36 36 31 | 30 35 31 34 36 34 37 35 |= 0.9661|05146475|
|000038c0| 33 31 31 3b 0d 56 5b 34 | 5d 20 3a 3d 20 30 2e 39 |311;.V[4|] := 0.9|
|000038d0| 39 35 33 32 32 32 36 35 | 30 31 38 39 35 33 3b 0d |95322265|018953;.|
|000038e0| 56 5b 35 5d 20 3a 3d 20 | 30 2e 39 39 39 35 39 33 |V[5] := |0.999593|
|000038f0| 30 34 37 39 38 32 35 35 | 35 3b 0d 56 5b 36 5d 20 |04798255|5;.V[6] |
|00003900| 3a 3d 20 30 2e 39 39 39 | 39 37 37 39 30 39 35 30 |:= 0.999|97790950|
|00003910| 33 30 30 31 3b 0d 56 5b | 37 5d 20 3a 3d 20 30 2e |3001;.V[|7] := 0.|
|00003920| 39 39 39 39 39 39 32 35 | 36 39 30 31 36 32 38 3b |99999925|6901628;|
|00003930| 0d 56 5b 38 5d 20 3a 3d | 20 30 2e 39 39 39 39 39 |.V[8] :=| 0.99999|
|00003940| 39 39 38 34 35 38 32 37 | 34 32 3b 0d 56 5b 39 5d |99845827|42;.V[9]|
|00003950| 20 3a 3d 20 31 2e 30 20 | 2d 20 31 2e 39 36 36 31 | := 1.0 |- 1.9661|
|00003960| 36 30 65 2d 31 30 3b 0d | 56 5b 31 30 5d 20 3a 3d |60e-10;.|V[10] :=|
|00003970| 20 31 2e 30 20 2d 20 31 | 2e 35 33 37 34 35 39 38 | 1.0 - 1|.5374598|
|00003980| 65 2d 31 32 3b 0d 56 5b | 31 31 5d 20 3a 3d 20 31 |e-12;.V[|11] := 1|
|00003990| 2e 30 20 2d 20 37 2e 33 | 35 37 38 34 37 39 65 2d |.0 - 7.3|578479e-|
|000039a0| 31 35 3b 0d 56 5b 31 32 | 5d 20 3a 3d 20 31 2e 30 |15;.V[12|] := 1.0|
|000039b0| 20 2d 20 32 2e 31 35 31 | 39 37 33 37 65 2d 31 37 | - 2.151|9737e-17|
|000039c0| 3b 0d 56 5b 31 33 5d 20 | 3a 3d 20 31 2e 30 20 2d |;.V[13] |:= 1.0 -|
|000039d0| 20 33 2e 38 34 32 31 34 | 38 33 65 2d 32 30 3b 0d | 3.84214|83e-20;.|
|000039e0| 49 46 20 28 58 49 4e 20 | 3c 20 30 2e 30 29 20 54 |IF (XIN |< 0.0) T|
|000039f0| 48 45 4e 0d 42 45 47 49 | 4e 0d 4d 55 4c 54 20 3a |HEN.BEGI|N.MULT :|
|00003a00| 3d 20 2d 31 3b 0d 58 49 | 4e 20 3a 3d 20 4d 55 4c |= -1;.XI|N := MUL|
|00003a10| 54 20 2a 20 58 49 4e 3b | 0d 45 4e 44 0d 45 4c 53 |T * XIN;|.END.ELS|
|00003a20| 45 0d 4d 55 4c 54 20 3a | 3d 20 31 3b 0d 4a 20 3a |E.MULT :|= 1;.J :|
|00003a30| 3d 20 52 4f 55 4e 44 28 | 32 2e 30 20 2a 20 58 49 |= ROUND(|2.0 * XI|
|00003a40| 4e 29 3b 0d 54 45 4d 50 | 20 3a 3d 20 31 2e 30 3b |N);.TEMP| := 1.0;|
|00003a50| 0d 49 46 20 28 4a 20 3c | 20 31 33 29 20 54 48 45 |.IF (J <| 13) THE|
|00003a60| 4e 0d 42 45 47 49 4e 0d | 4e 20 3a 3d 20 33 3b 0d |N.BEGIN.|N := 3;.|
|00003a70| 58 53 54 41 52 54 20 3a | 3d 20 4a 20 2a 20 30 2e |XSTART :|= J * 0.|
|00003a80| 35 3b 0d 58 45 4e 44 20 | 3a 3d 20 58 49 4e 3b 0d |5;.XEND |:= XIN;.|
|00003a90| 48 20 3a 3d 20 28 58 45 | 4e 44 20 2d 20 58 53 54 |H := (XE|ND - XST|
|00003aa0| 41 52 54 29 20 2f 20 28 | 4e 20 2a 20 36 2e 30 29 |ART) / (|N * 6.0)|
|00003ab0| 3b 0d 53 55 4d 20 3a 3d | 20 30 2e 30 3b 0d 58 20 |;.SUM :=| 0.0;.X |
|00003ac0| 3a 3d 20 58 53 54 41 52 | 54 3b 0d 46 4f 52 20 49 |:= XSTAR|T;.FOR I|
|00003ad0| 20 3a 3d 20 31 20 54 4f | 20 4e 20 44 4f 0d 42 45 | := 1 TO| N DO.BE|
|00003ae0| 47 49 4e 0d 46 4f 52 20 | 4b 20 3a 3d 20 30 20 54 |GIN.FOR |K := 0 T|
|00003af0| 4f 20 35 20 44 4f 0d 42 | 45 47 49 4e 0d 46 5b 4b |O 5 DO.B|EGIN.F[K|
|00003b00| 5d 20 3a 3d 20 45 58 50 | 28 2d 58 20 2a 20 58 29 |] := EXP|(-X * X)|
|00003b10| 3b 0d 58 20 3a 3d 20 58 | 20 2b 20 48 3b 0d 45 4e |;.X := X| + H;.EN|
|00003b20| 44 3b 0d 46 5b 36 5d 20 | 3a 3d 20 45 58 50 28 2d |D;.F[6] |:= EXP(-|
|00003b30| 58 20 2a 20 58 29 3b 0d | 53 55 4d 20 3a 3d 20 53 |X * X);.|SUM := S|
|00003b40| 55 4d 20 2b 20 28 34 31 | 20 2a 20 46 5b 30 5d 20 |UM + (41| * F[0] |
|00003b50| 2b 20 32 31 36 20 2a 20 | 46 5b 31 5d 20 2b 20 32 |+ 216 * |F[1] + 2|
|00003b60| 37 20 2a 20 46 5b 32 5d | 29 3b 0d 53 55 4d 20 3a |7 * F[2]|);.SUM :|
|00003b70| 3d 20 53 55 4d 20 2b 20 | 28 32 37 32 20 2a 20 46 |= SUM + |(272 * F|
|00003b80| 5b 33 5d 20 2b 20 32 37 | 20 2a 20 46 5b 34 5d 20 |[3] + 27| * F[4] |
|00003b90| 2b 20 32 31 36 20 2a 20 | 46 5b 35 5d 20 2b 20 34 |+ 216 * |F[5] + 4|
|00003ba0| 31 20 2a 20 46 5b 36 5d | 29 3b 0d 45 4e 44 3b 0d |1 * F[6]|);.END;.|
|00003bb0| 54 45 4d 50 20 3a 3d 20 | 28 53 55 4d 20 2a 20 48 |TEMP := |(SUM * H|
|00003bc0| 20 2f 20 31 34 30 2e 30 | 29 20 2a 20 53 51 52 54 | / 140.0|) * SQRT|
|00003bd0| 28 31 2e 30 20 2f 20 41 | 52 43 54 41 4e 28 31 2e |(1.0 / A|RCTAN(1.|
|00003be0| 30 29 29 20 2b 20 56 5b | 4a 5d 3b 0d 45 4e 44 3b |0)) + V[|J];.END;|
|00003bf0| 0d 49 46 20 28 54 45 4d | 50 20 3e 20 31 2e 30 29 |.IF (TEM|P > 1.0)|
|00003c00| 20 54 48 45 4e 0d 54 45 | 4d 50 20 3a 3d 20 31 2e | THEN.TE|MP := 1.|
|00003c10| 30 3b 0d 44 45 52 46 20 | 3a 3d 20 54 45 4d 50 20 |0;.DERF |:= TEMP |
|00003c20| 2a 20 4d 55 4c 54 3b 0d | 45 4e 44 3b 0d 42 45 47 |* MULT;.|END;.BEG|
|00003c30| 49 4e 0d 73 65 65 3b 0d | 57 52 49 54 45 4c 4e 28 |IN.see;.|WRITELN(|
|00003c40| 27 20 20 20 20 20 20 20 | 20 58 20 20 20 20 20 20 |' | X |
|00003c50| 20 20 20 20 20 20 20 20 | 4e 4f 52 4d 41 4c 20 44 | |NORMAL D|
|00003c60| 49 53 54 52 49 42 55 54 | 49 4f 4e 27 29 3b 0d 46 |ISTRIBUT|ION');.F|
|00003c70| 4f 52 20 49 58 20 3a 3d | 20 30 20 54 4f 20 32 30 |OR IX :=| 0 TO 20|
|00003c80| 20 44 4f 0d 42 45 47 49 | 4e 0d 58 49 4e 20 3a 3d | DO.BEGI|N.XIN :=|
|00003c90| 20 49 58 20 2f 20 31 30 | 3b 0d 41 52 45 41 20 3a | IX / 10|;.AREA :|
|00003ca0| 3d 20 30 2e 35 20 2a 20 | 44 45 52 46 28 58 49 4e |= 0.5 * |DERF(XIN|
|00003cb0| 20 2f 20 73 71 72 74 28 | 32 2e 30 29 29 20 2b 20 | / sqrt(|2.0)) + |
|00003cc0| 30 2e 35 3b 0d 57 52 49 | 54 45 4c 4e 28 58 49 4e |0.5;.WRI|TELN(XIN|
|00003cd0| 20 3a 20 31 30 20 3a 20 | 35 2c 20 41 52 45 41 20 | : 10 : |5, AREA |
|00003ce0| 3a 20 33 30 20 3a 20 31 | 35 29 3b 0d 45 4e 44 3b |: 30 : 1|5);.END;|
|00003cf0| 0d 45 4e 44 2e 00 44 65 | 72 66 2e 50 61 73 73 00 |.END..De|rf.Pass.|
|00003d00| 00 4e 5e 2e 9f 4e 75 4e | 00 00 0a d0 73 00 00 4e |.N^..NuN|....s..N|
|00003d10| 5e 2e 9f 4e 75 4e 00 00 | 0a d0 6e 00 00 0a 9c 00 |^..NuN..|..n.....|
|00003d20| 00 00 0e 60 46 52 45 45 | 00 00 00 00 13 46 72 65 |...`FREE|.....Fre|
|00003d30| 65 20 4f 62 6a 65 63 74 | 20 20 20 20 20 20 20 20 |e Object| |
|00003d40| 65 74 68 6f 64 73 20 66 | 6f 72 20 44 69 67 69 74 |ethods f|or Digit|
|00003d50| 61 6c 20 43 6f 6d 70 75 | 74 61 74 69 6f 6e 20 57 |al Compu|tation W|
|00003d60| 69 74 68 20 46 6f 72 74 | 72 61 6e 20 61 6e 64 20 |ith Fort|ran and |
|00003d70| 43 53 4d 50 2c 20 48 61 | 72 70 65 72 20 61 6e 64 |CSMP, Ha|rper and|
|00003d80| 20 52 6f 77 2c 20 4e 65 | 77 20 59 6f 72 6b 2c 20 | Row, Ne|w York, |
|00003d90| 31 39 37 37 2e 20 0d 00 | 00 1a 37 00 44 65 72 66 |1977. ..|..7.Derf|
|00003da0| 2e 50 61 73 73 00 00 4e | 5e 2e 9f 4e 75 4e 00 00 |.Pass..N|^..NuN..|
|00003db0| 0a d0 73 00 00 4e 5e 2e | 9f 4e 75 4e 00 00 0a d0 |..s..N^.|.NuN....|
|00003dc0| 00 00 01 60 46 52 45 45 | 00 00 00 00 13 46 72 65 |...`FREE|.....Fre|
|00003dd0| 65 20 4f 62 6a 65 63 74 | 20 20 20 20 20 20 20 20 |e Object| |
|00003de0| 20 73 65 63 6f 6e 64 73 | 0d 67 6f 20 74 6f 20 63 | seconds|.go to c|
|00003df0| 61 72 64 20 69 64 20 33 | 38 34 38 0d 65 6e 64 20 |ard id 3|848.end |
|00003e00| 69 66 0d 65 6e 64 20 69 | 64 6c 65 00 14 78 65 0e |if.end i|dle..xe.|
|00003e10| 0a c1 01 80 08 00 02 94 | f1 98 18 01 e1 19 f0 e1 |........|........|
|00003e20| 06 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e30| 00 01 20 46 52 45 45 00 | 00 00 00 13 46 72 65 65 |.. FREE.|....Free|
|00003e40| 20 4f 62 6a 65 63 74 20 | 20 20 20 20 02 00 00 0e | Object | ....|
|00003e50| 38 00 02 16 00 63 74 20 | 20 20 20 20 02 00 00 0e |8....ct | ....|
|00003e60| 28 00 02 16 00 00 00 20 | 20 20 20 20 02 00 00 0e |(...... | ....|
|00003e70| 38 00 02 16 00 63 74 20 | 20 20 20 20 02 00 00 00 |8....ct | ....|
|00003e80| 00 1c 00 1d 00 51 00 52 | 00 62 00 63 00 97 00 98 |.....Q.R|.b.c....|
|00003e90| 01 58 01 59 01 8d 01 8e | 01 9e 01 9f 01 d3 01 d4 |.X.Y....|........|
|00003ea0| 00 00 00 80 4c 49 53 54 | 00 00 16 74 00 00 00 01 |....LIST|...t....|
|00003eb0| 00 00 08 00 00 00 00 1a | 00 10 00 01 00 03 00 06 |........|........|
|00003ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ed0| 00 00 2e f2 00 1a 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f20| 00 00 0c 60 43 41 52 44 | 00 00 0b e1 00 00 00 00 |...`CARD|........|
|00003f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f40| 00 00 0a 2f 00 00 00 07 | 00 00 00 00 00 04 00 00 |.../....|........|
|00003f50| 0c 18 00 11 4d 55 4c 54 | 49 5f 44 49 46 45 51 20 |....MULT|I_DIFEQ |
|00003f60| 20 5b 70 72 6f 63 65 64 | 75 72 65 5d 0d 0d 0d 0d | [proced|ure]....|
|00003f70| 50 55 52 50 4f 53 45 0d | 20 0d 4d 55 4c 54 49 5f |PURPOSE.| .MULTI_|
|00003f80| 44 49 46 45 51 20 73 6f | 6c 76 65 73 20 61 20 73 |DIFEQ so|lves a s|
|00003f90| 79 73 74 65 6d 20 6f 66 | 20 6f 72 64 69 6e 61 72 |ystem of| ordinar|
|00003fa0| 79 20 64 69 66 66 65 72 | 65 6e 74 69 61 6c 20 65 |y differ|ential e|
|00003fb0| 71 75 61 74 69 6f 6e 73 | 20 75 73 69 6e 67 20 74 |quations| using t|
|00003fc0| 68 65 20 0d 66 6f 75 72 | 74 68 20 6f 72 64 65 72 |he .four|th order|
|00003fd0| 20 52 75 6e 67 65 2d 4b | 75 74 74 61 20 4d 65 74 | Runge-K|utta Met|
|00003fe0| 68 6f 64 2e 20 20 54 68 | 69 73 20 73 79 73 74 65 |hod. Th|is syste|
|00003ff0| 6d 20 63 61 6e 20 62 65 | 20 63 6f 6d 70 6f 73 65 |m can be| compose|
|00004000| 64 20 6f 66 20 73 65 76 | 65 72 61 6c 20 0d 66 69 |d of sev|eral .fi|
|00004010| 72 73 74 20 6f 72 20 68 | 69 67 68 65 72 20 6f 72 |rst or h|igher or|
|00004020| 64 65 72 20 65 71 75 61 | 74 69 6f 6e 73 2e 20 20 |der equa|tions. |
|00004030| 49 74 20 69 73 20 6e 65 | 63 65 73 73 61 72 79 20 |It is ne|cessary |
|00004040| 74 6f 20 64 65 66 69 6e | 65 20 61 20 70 72 6f 63 |to defin|e a proc|
|00004050| 65 64 75 72 65 20 0d 56 | 41 4c 55 45 20 77 68 69 |edure .V|ALUE whi|
|00004060| 63 68 20 64 65 73 63 72 | 69 62 65 73 20 74 68 65 |ch descr|ibes the|
|00004070| 20 73 79 73 74 65 6d 20 | 6f 66 20 65 71 75 61 74 | system |of equat|
|00004080| 69 6f 6e 73 2e 20 57 68 | 65 6e 20 67 69 76 65 6e |ions. Wh|en given|
|00004090| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 0d 74 | the val|ue of .t|
|000040a0| 68 65 20 69 6e 64 65 70 | 65 6e 64 65 6e 74 20 76 |he indep|endent v|
|000040b0| 61 72 69 61 62 6c 65 20 | 61 6e 64 20 74 68 65 20 |ariable |and the |
|000040c0| 76 61 6c 75 65 73 20 66 | 6f 72 20 61 6c 6c 20 6f |values f|or all o|
|000040d0| 66 20 74 68 65 20 64 65 | 70 65 6e 64 65 6e 74 20 |f the de|pendent |
|000040e0| 76 61 72 69 61 62 6c 65 | 73 20 0d 65 78 63 65 70 |variable|s .excep|
|000040f0| 74 20 6f 6e 65 2c 20 56 | 41 4c 55 45 20 6d 75 73 |t one, V|ALUE mus|
|00004100| 74 20 64 65 74 65 72 6d | 69 6e 65 20 74 68 65 20 |t determ|ine the |
|00004110| 76 61 6c 75 65 20 6f 66 | 20 74 68 65 20 72 65 6d |value of| the rem|
|00004120| 61 69 6e 69 6e 67 20 64 | 65 70 65 6e 64 65 6e 74 |aining d|ependent|
|00004130| 20 0d 76 61 72 69 61 62 | 6c 65 2e 20 20 56 61 6c | .variab|le. Val|
|00004140| 75 65 20 6d 75 73 74 20 | 70 65 72 66 6f 72 6d 20 |ue must |perform |
|00004150| 74 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 66 6f |this fun|ction fo|
|00004160| 72 20 61 6c 6c 20 6f 66 | 20 74 68 65 20 64 65 70 |r all of| the dep|
|00004170| 65 6e 64 65 6e 74 20 0d | 76 61 72 69 61 62 6c 65 |endent .|variable|
|00004180| 73 2e 20 20 54 68 65 20 | 70 72 6f 63 65 64 75 72 |s. The |procedur|
|00004190| 65 20 56 41 4c 55 45 20 | 6d 75 73 74 20 61 63 63 |e VALUE |must acc|
|000041a0| 65 70 74 20 74 68 65 20 | 64 65 70 65 6e 64 65 6e |ept the |dependen|
|000041b0| 74 20 76 61 72 69 61 62 | 6c 65 2c 20 61 6e 20 0d |t variab|le, an .|
|000041c0| 61 72 72 61 79 20 6f 66 | 20 74 68 65 20 76 61 6c |array of| the val|
|000041d0| 75 65 73 20 6f 66 20 74 | 68 65 20 69 6e 64 65 70 |ues of t|he indep|
|000041e0| 65 6e 64 65 6e 74 20 76 | 61 72 69 61 62 6c 65 73 |endent v|ariables|
|000041f0| 20 61 6e 64 20 74 68 65 | 69 72 20 64 65 72 69 76 | and the|ir deriv|
|00004200| 61 74 69 76 65 73 20 0d | 61 6c 6f 6e 67 20 77 69 |atives .|along wi|
|00004210| 74 68 20 61 20 64 65 6c | 74 61 20 76 61 6c 75 65 |th a del|ta value|
|00004220| 20 66 6f 72 20 74 68 65 | 20 69 6e 64 65 70 65 6e | for the| indepen|
|00004230| 64 65 6e 74 20 76 61 72 | 69 61 62 6c 65 2e 20 20 |dent var|iable. |
|00004240| 4d 55 4c 54 49 5f 44 49 | 46 45 51 20 0d 72 65 71 |MULTI_DI|FEQ .req|
|00004250| 75 69 72 65 73 20 74 68 | 65 20 70 61 73 73 61 67 |uires th|e passag|
|00004260| 65 20 6f 66 20 74 68 65 | 20 64 65 70 65 6e 64 65 |e of the| depende|
|00004270| 6e 74 20 76 61 72 69 61 | 62 6c 65 2c 20 61 20 64 |nt varia|ble, a d|
|00004280| 65 6c 74 61 20 76 61 6c | 75 65 20 66 6f 72 20 74 |elta val|ue for t|
|00004290| 68 61 74 20 0d 76 61 72 | 69 61 62 6c 65 2c 20 74 |hat .var|iable, t|
|000042a0| 68 65 20 61 72 72 61 79 | 20 6f 66 20 76 61 6c 75 |he array| of valu|
|000042b0| 65 73 20 66 6f 72 20 64 | 65 70 65 6e 64 65 6e 74 |es for d|ependent|
|000042c0| 20 76 61 72 69 61 62 6c | 65 73 20 61 6e 64 20 74 | variabl|es and t|
|000042d0| 68 65 69 72 20 64 65 72 | 69 76 61 74 69 76 65 73 |heir der|ivatives|
|000042e0| 2c 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |, the nu|mber of |
|000042f0| 65 71 75 61 74 69 6f 6e | 73 2c 20 20 61 6e 64 20 |equation|s, and |
|00004300| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 69 74 |the numb|er of it|
|00004310| 65 72 61 74 69 6f 6e 73 | 20 74 6f 20 62 65 20 70 |erations| to be p|
|00004320| 65 72 66 6f 72 6d 65 64 | 20 62 65 66 6f 72 65 20 |erformed| before |
|00004330| 72 65 74 75 72 6e 69 6e | 67 20 74 6f 20 74 68 65 |returnin|g to the|
|00004340| 20 63 61 6c 6c 69 6e 67 | 20 70 72 6f 63 65 64 75 | calling| procedu|
|00004350| 72 65 2e 20 20 4f 6e 20 | 63 6f 6d 70 6c 65 74 69 |re. On |completi|
|00004360| 6f 6e 2c 20 0d 4d 55 4c | 54 49 5f 44 49 46 45 51 |on, .MUL|TI_DIFEQ|
|00004370| 20 70 61 73 73 65 73 20 | 62 61 63 6b 20 74 68 65 | passes |back the|
|00004380| 20 75 70 64 61 74 65 64 | 20 64 65 70 65 6e 64 65 | updated| depende|
|00004390| 6e 74 20 61 6e 64 20 69 | 6e 64 65 70 65 6e 64 65 |nt and i|ndepende|
|000043a0| 6e 74 20 76 61 72 69 61 | 62 6c 65 73 20 61 6c 6f |nt varia|bles alo|
|000043b0| 6e 67 20 77 69 74 68 20 | 74 68 65 20 64 65 72 69 |ng with |the deri|
|000043c0| 76 61 74 69 76 65 73 20 | 66 6f 72 20 74 68 65 20 |vatives |for the |
|000043d0| 64 65 70 65 6e 64 65 6e | 74 20 76 61 72 69 61 62 |dependen|t variab|
|000043e0| 6c 65 73 2e 20 54 68 65 | 20 64 65 70 65 6e 64 65 |les. The| depende|
|000043f0| 6e 74 20 76 61 72 69 61 | 62 6c 65 20 77 69 6c 6c |nt varia|ble will|
|00004400| 20 65 71 75 61 6c 20 74 | 68 65 20 69 6e 70 75 74 | equal t|he input|
|00004410| 20 64 65 70 65 6e 64 65 | 6e 74 20 76 61 72 69 61 | depende|nt varia|
|00004420| 62 6c 65 20 70 6c 75 73 | 20 74 68 65 20 64 65 6c |ble plus| the del|
|00004430| 74 61 20 64 65 70 65 6e | 64 65 6e 74 20 76 61 72 |ta depen|dent var|
|00004440| 69 61 62 6c 65 20 74 69 | 6d 65 73 20 74 68 65 20 |iable ti|mes the |
|00004450| 6e 75 6d 62 65 72 20 6f | 66 20 69 74 65 72 61 74 |number o|f iterat|
|00004460| 69 6f 6e 73 2e 20 53 65 | 63 6f 6e 64 20 6f 72 20 |ions. Se|cond or |
|00004470| 68 69 67 68 65 72 20 6f | 72 64 65 72 20 65 71 75 |higher o|rder equ|
|00004480| 61 74 69 6f 6e 73 20 63 | 61 6e 20 62 65 20 73 6f |ations c|an be so|
|00004490| 6c 76 65 64 20 62 79 20 | 62 72 65 61 6b 69 6e 67 |lved by |breaking|
|000044a0| 20 74 68 65 20 65 71 75 | 61 74 69 6f 6e 73 20 69 | the equ|ations i|
|000044b0| 6e 74 6f 20 61 20 73 65 | 74 20 6f 66 20 66 69 72 |nto a se|t of fir|
|000044c0| 73 74 20 6f 72 64 65 72 | 20 65 71 75 61 74 69 6f |st order| equatio|
|000044d0| 6e 73 2e 0d 0d 0d 54 59 | 50 45 20 52 45 51 55 49 |ns....TY|PE REQUI|
|000044e0| 52 45 4d 45 4e 54 53 0d | 0d 54 79 70 65 0d 46 4c |REMENTS.|.Type.FL|
|000044f0| 4f 41 54 20 3d 20 52 45 | 41 4c 20 6f 72 20 44 4f |OAT = RE|AL or DO|
|00004500| 55 42 4c 45 20 6f 72 20 | 45 58 54 45 4e 44 45 44 |UBLE or |EXTENDED|
|00004510| 3b 0d 44 49 4d 3d 20 41 | 52 52 41 59 20 5b 31 2e |;.DIM= A|RRAY [1.|
|00004520| 2e 4e 55 4d 5f 4f 46 5f | 45 51 55 41 54 49 4f 4e |.NUM_OF_|EQUATION|
|00004530| 53 5d 20 6f 66 20 46 4c | 4f 41 54 3b 0d 46 49 58 |S] of FL|OAT;.FIX|
|00004540| 58 45 44 20 3d 20 49 4e | 54 45 47 45 52 20 6f 72 |XED = IN|TEGER or|
|00004550| 20 4c 4f 4e 47 49 4e 54 | 3b 0d 0d 0d 43 41 4c 4c | LONGINT|;...CALL|
|00004560| 49 4e 47 20 50 52 4f 43 | 45 44 55 52 45 0d 0d 76 |ING PROC|EDURE..v|
|00004570| 61 72 0d 54 49 4d 45 3a | 46 4c 4f 41 54 3b 7b 49 |ar.TIME:|FLOAT;{I|
|00004580| 6e 64 65 70 65 6e 64 65 | 6e 74 20 76 61 72 69 61 |ndepende|nt varia|
|00004590| 62 6c 65 7d 0d 44 54 3a | 46 4c 4f 41 54 3b 7b 44 |ble}.DT:|FLOAT;{D|
|000045a0| 65 6c 74 61 20 54 49 4d | 45 7d 3b 0d 43 55 52 52 |elta TIM|E};.CURR|
|000045b0| 45 4e 54 3a 44 49 4d 3b | 7b 41 72 72 61 79 20 6f |ENT:DIM;|{Array o|
|000045c0| 66 20 64 65 70 65 6e 64 | 65 6e 74 20 76 61 72 69 |f depend|ent vari|
|000045d0| 61 62 6c 65 73 7d 0d 44 | 49 44 54 3a 44 49 4d 3b |ables}.D|IDT:DIM;|
|000045e0| 7b 41 72 72 61 79 20 6f | 66 20 64 65 72 69 76 61 |{Array o|f deriva|
|000045f0| 74 69 76 65 73 20 6f 66 | 20 64 65 70 65 6e 64 65 |tives of| depende|
|00004600| 6e 74 20 76 61 72 69 61 | 62 6c 65 73 7d 0d 4e 55 |nt varia|bles}.NU|
|00004610| 4d 45 51 55 41 3a 46 49 | 58 58 45 44 3b 7b 54 6f |MEQUA:FI|XXED;{To|
|00004620| 74 61 6c 20 6e 75 6d 62 | 65 72 20 6f 66 20 65 71 |tal numb|er of eq|
|00004630| 75 61 74 69 6f 6e 73 7d | 0d 49 54 45 52 41 54 45 |uations}|.ITERATE|
|00004640| 3a 46 49 58 58 45 44 3b | 7b 4e 75 6d 62 65 72 20 |:FIXXED;|{Number |
|00004650| 6f 66 20 74 69 6d 65 73 | 20 4d 55 4c 54 49 5f 44 |of times| MULTI_D|
|00004660| 49 46 45 51 20 77 69 6c | 6c 20 69 74 65 72 61 74 |IFEQ wil|l iterat|
|00004670| 65 20 62 65 66 6f 72 65 | 20 72 65 74 75 72 6e 69 |e before| returni|
|00004680| 6e 67 7d 0d 0d 44 65 66 | 69 6e 65 20 74 68 65 20 |ng}..Def|ine the |
|00004690| 70 72 6f 63 65 64 75 72 | 65 20 56 41 4c 55 45 2e |procedur|e VALUE.|
|000046a0| 20 20 54 68 65 20 63 61 | 6c 6c 69 6e 67 20 73 65 | The ca|lling se|
|000046b0| 71 75 65 6e 63 65 20 74 | 6f 20 76 61 6c 75 65 20 |quence t|o value |
|000046c0| 69 73 20 0d 0d 56 41 4c | 55 45 28 54 49 4d 45 2c |is ..VAL|UE(TIME,|
|000046d0| 43 55 52 52 45 4e 54 2c | 44 49 44 54 2c 44 54 29 |CURRENT,|DIDT,DT)|
|000046e0| 3b 2e 0d 0d 44 65 66 69 | 6e 65 20 4e 55 4d 45 51 |;...Defi|ne NUMEQ|
|000046f0| 55 41 2c 20 44 54 2c 20 | 61 6e 64 20 49 54 45 52 |UA, DT, |and ITER|
|00004700| 41 54 45 2e 20 20 44 65 | 66 69 6e 65 20 74 68 65 |ATE. De|fine the|
|00004710| 20 69 6e 69 74 69 61 6c | 20 76 61 6c 75 65 73 20 | initial| values |
|00004720| 66 6f 72 20 54 49 4d 45 | 2c 20 0d 43 55 52 52 45 |for TIME|, .CURRE|
|00004730| 4e 54 20 61 6e 64 20 44 | 49 44 54 2e 20 20 54 68 |NT and D|IDT. Th|
|00004740| 65 6e 20 63 61 6c 6c 20 | 74 68 65 20 70 72 6f 63 |en call |the proc|
|00004750| 65 64 75 72 65 2e 0d 0d | 4d 55 4c 54 49 5f 44 49 |edure...|MULTI_DI|
|00004760| 46 45 51 28 54 49 4d 45 | 2c 44 54 2c 43 55 52 52 |FEQ(TIME|,DT,CURR|
|00004770| 45 4e 54 2c 44 49 44 54 | 2c 4e 55 4d 45 51 55 41 |ENT,DIDT|,NUMEQUA|
|00004780| 2c 49 54 45 52 41 54 45 | 29 3b 0d 0d 57 68 65 6e |,ITERATE|);..When|
|00004790| 20 74 68 65 20 70 72 6f | 63 65 72 64 75 72 65 20 | the pro|cerdure |
|000047a0| 66 69 6e 69 73 68 65 73 | 20 54 49 4d 45 2c 20 43 |finishes| TIME, C|
|000047b0| 55 52 52 45 4e 54 2c 20 | 61 6e 64 20 44 49 44 54 |URRENT, |and DIDT|
|000047c0| 20 77 69 6c 6c 20 68 61 | 76 65 20 62 65 65 6e 20 | will ha|ve been |
|000047d0| 0d 75 70 64 61 74 65 64 | 2e 0d 0d 0d 45 58 41 4d |.updated|....EXAM|
|000047e0| 50 4c 45 0d 0d 54 68 65 | 20 65 78 61 6d 70 6c 65 |PLE..The| example|
|000047f0| 20 73 6f 6c 76 65 73 20 | 74 68 65 20 73 79 73 74 | solves |the syst|
|00004800| 65 6d 20 6f 66 20 65 71 | 75 61 74 69 6f 6e 73 0d |em of eq|uations.|
|00004810| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00004820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 64 | | d|
|00004830| 58 2f 64 74 20 2b 20 59 | 20 3d 20 33 65 32 74 0d |X/dt + Y| = 3e2t.|
|00004840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 64 59 | | dY|
|00004860| 2f 64 74 20 2b 20 58 20 | 3d 20 30 0d 20 20 20 20 |/dt + X |= 0. |
|00004870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004880| 20 20 20 20 20 20 20 20 | 20 20 58 28 30 29 20 3d | | X(0) =|
|00004890| 20 32 2c 20 59 28 30 29 | 20 3d 30 0d 0d 66 72 6f | 2, Y(0)| =0..fro|
|000048a0| 6d 20 74 3d 20 30 2e 30 | 20 74 6f 20 74 3d 30 2e |m t= 0.0| to t=0.|
|000048b0| 30 35 2e 20 20 54 68 65 | 20 61 6e 61 6c 79 74 69 |05. The| analyti|
|000048c0| 63 61 6c 20 73 6f 6c 75 | 74 69 6f 6e 20 74 6f 20 |cal solu|tion to |
|000048d0| 74 68 69 73 20 73 65 74 | 20 6f 66 20 65 71 75 61 |this set| of equa|
|000048e0| 74 69 6f 6e 73 20 69 73 | 0d 0d 20 20 20 20 20 20 |tions is|.. |
|000048f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004900| 20 58 20 3d 20 2d 65 78 | 70 28 74 2f 32 29 20 2b | X = -ex|p(t/2) +|
|00004910| 20 65 78 70 28 2d 74 2f | 32 29 20 2b 20 32 65 78 | exp(-t/|2) + 2ex|
|00004920| 70 28 32 74 29 0d 20 20 | 20 20 20 20 20 20 20 20 |p(2t). | |
|00004930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 59 20 3d | | Y =|
|00004940| 20 65 78 70 28 74 2f 32 | 29 20 2b 20 65 78 70 28 | exp(t/2|) + exp(|
|00004950| 2d 74 2f 32 29 20 2d 65 | 78 70 28 32 74 29 2e 0d |-t/2) -e|xp(2t)..|
|00004960| 0d 54 68 69 73 20 70 72 | 6f 62 6c 65 6d 20 61 6e |.This pr|oblem an|
|00004970| 64 20 69 74 27 73 20 73 | 6f 6c 75 74 69 6f 6e 20 |d it's s|olution |
|00004980| 77 65 72 65 20 74 61 6b | 65 6e 20 66 72 6f 6d 20 |were tak|en from |
|00004990| 70 61 67 65 20 34 30 38 | 20 61 6e 64 20 34 32 36 |page 408| and 426|
|000049a0| 20 6f 66 20 74 68 65 20 | 0d 73 65 63 6f 6e 64 20 | of the |.second |
|000049b0| 72 65 66 65 72 65 6e 63 | 65 2e 0d 0d 0d 52 45 46 |referenc|e....REF|
|000049c0| 45 52 45 4e 43 45 53 0d | 4a 61 6d 65 73 2c 20 4d |ERENCES.|James, M|
|000049d0| 2e 20 4c 2e 2c 20 53 6d | 69 74 68 2c 20 47 2e 20 |. L., Sm|ith, G. |
|000049e0| 4d 2e 2c 20 57 6f 6c 66 | 6f 72 64 2c 20 4a 2e 20 |M., Wolf|ord, J. |
|000049f0| 43 2e 3a 20 20 41 70 70 | 6c 69 65 64 20 4e 75 6d |C.: App|lied Num|
|00004a00| 65 72 69 63 61 6c 20 4d | 65 74 68 6f 64 73 20 66 |erical M|ethods f|
|00004a10| 6f 72 20 0d 44 69 67 69 | 74 61 6c 20 43 6f 6d 70 |or .Digi|tal Comp|
|00004a20| 75 74 61 74 69 6f 6e 20 | 57 69 74 68 20 46 6f 72 |utation |With For|
|00004a30| 74 72 61 6e 20 61 6e 64 | 20 43 53 4d 50 2c 20 48 |tran and| CSMP, H|
|00004a40| 61 72 70 65 72 20 61 6e | 64 20 52 6f 77 2c 20 4e |arper an|d Row, N|
|00004a50| 65 77 20 59 6f 72 6b 2c | 20 0d 31 39 37 37 2e 0d |ew York,| .1977..|
|00004a60| 0d 52 6f 73 73 2c 20 53 | 2e 20 4c 2e 3a 20 49 6e |.Ross, S|. L.: In|
|00004a70| 74 72 6f 64 75 63 74 69 | 6f 6e 20 74 6f 20 4f 72 |troducti|on to Or|
|00004a80| 64 69 6e 61 72 79 20 44 | 69 66 66 65 72 65 6e 74 |dinary D|ifferent|
|00004a90| 69 61 6c 20 45 71 75 61 | 74 69 6f 6e 73 20 32 6e |ial Equa|tions 2n|
|00004aa0| 64 20 65 64 69 74 69 6f | 6e 2c 20 0d 58 65 72 6f |d editio|n, .Xero|
|00004ab0| 78 20 43 6f 6c 6c 65 67 | 65 20 50 75 62 6c 69 73 |x Colleg|e Publis|
|00004ac0| 68 69 6e 67 2c 20 4c 65 | 78 69 6e 67 74 6f 6e 20 |hing, Le|xington |
|00004ad0| 31 39 37 34 2e 0d 0d 4d | 63 43 6f 72 6d 69 63 2c |1974...M|cCormic,|
|00004ae0| 20 4a 2e 20 4d 2e 2c 20 | 53 61 6c 76 61 64 6f 72 | J. M., |Salvador|
|00004af0| 69 20 4d 2e 20 47 2e 3a | 20 4e 75 6d 65 72 69 63 |i M. G.:| Numeric|
|00004b00| 61 6c 20 4d 65 74 68 6f | 64 73 20 69 6e 20 46 6f |al Metho|ds in Fo|
|00004b10| 72 74 72 61 6e 2c 20 50 | 72 65 6e 74 69 63 65 2d |rtran, P|rentice-|
|00004b20| 0d 48 61 6c 6c 2c 20 45 | 6e 67 6c 65 77 6f 6f 64 |.Hall, E|nglewood|
|00004b30| 20 43 6c 69 66 66 73 2c | 20 31 39 36 35 2e 0d 0d | Cliffs,| 1965...|
|00004b40| 00 00 16 4d 75 6c 74 69 | 5f 44 69 66 65 71 2e 50 |...Multi|_Difeq.P|
|00004b50| 41 53 00 00 17 4d 75 6c | 74 69 5f 44 69 66 65 71 |AS...Mul|ti_Difeq|
|00004b60| 2e 50 41 53 00 00 1a 31 | 33 00 4d 75 6c 74 69 5f |.PAS...1|3.Multi_|
|00004b70| 44 69 66 65 71 2e 50 41 | 53 00 00 00 0d 0d 00 00 |Difeq.PA|S.......|
|00004b80| 00 00 09 e0 43 41 52 44 | 00 00 18 94 00 00 00 00 |....CARD|........|
|00004b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ba0| 00 00 0a 2f 00 00 00 00 | 00 00 00 00 00 05 00 00 |.../....|........|
|00004bb0| 09 90 00 11 46 49 4e 44 | 5f 44 59 44 58 5b 66 75 |....FIND|_DYDX[fu|
|00004bc0| 6e 63 74 69 6f 6e 5d 0d | 0d 0d 50 55 52 50 4f 53 |nction].|..PURPOS|
|00004bd0| 45 20 0d 0d 46 49 4e 44 | 5f 44 59 44 58 20 77 69 |E ..FIND|_DYDX wi|
|00004be0| 6c 6c 20 63 61 6c 63 75 | 6c 61 74 65 20 74 68 65 |ll calcu|late the|
|00004bf0| 20 64 65 72 69 76 61 74 | 69 76 65 20 6f 66 20 61 | derivat|ive of a|
|00004c00| 20 66 75 6e 63 74 69 6f | 6e 20 64 65 66 69 6e 65 | functio|n define|
|00004c10| 64 20 62 79 20 74 68 65 | 20 75 73 65 72 20 73 75 |d by the| user su|
|00004c20| 70 70 6c 69 65 64 20 66 | 75 6e 63 74 69 6f 6e 20 |pplied f|unction |
|00004c30| 46 2e 20 20 46 49 4e 44 | 5f 44 59 44 58 20 63 61 |F. FIND|_DYDX ca|
|00004c40| 6e 20 75 73 65 20 66 6f | 72 77 61 72 64 2c 20 62 |n use fo|rward, b|
|00004c50| 61 63 6b 77 61 72 64 2c | 20 6f 72 20 63 65 6e 74 |ackward,| or cent|
|00004c60| 72 61 6c 20 64 69 66 66 | 65 72 65 6e 63 65 20 66 |ral diff|erence f|
|00004c70| 6f 72 6d 75 6c 61 73 20 | 77 69 74 68 20 65 72 72 |ormulas |with err|
|00004c80| 6f 72 73 20 6f 6e 20 74 | 68 65 20 6f 72 64 65 72 |ors on t|he order|
|00004c90| 20 6f 66 20 64 78 34 2e | 20 20 54 68 65 20 64 65 | of dx4.| The de|
|00004ca0| 72 69 76 61 74 69 76 65 | 73 20 61 72 65 20 63 61 |rivative|s are ca|
|00004cb0| 6c 63 75 6c 61 74 65 64 | 20 75 73 69 6e 67 20 66 |lculated| using f|
|00004cc0| 69 76 65 20 76 61 6c 75 | 65 73 20 6f 66 20 74 68 |ive valu|es of th|
|00004cd0| 65 20 66 75 6e 63 74 69 | 6f 6e 20 61 6e 64 20 74 |e functi|on and t|
|00004ce0| 68 65 20 4e 65 77 74 6f | 6e 2d 47 72 65 67 6f 72 |he Newto|n-Gregor|
|00004cf0| 79 20 69 6e 74 65 72 70 | 6f 6c 61 74 69 6e 67 20 |y interp|olating |
|00004d00| 66 6f 72 6d 75 6c 61 73 | 2e 20 20 54 68 65 20 66 |formulas|. The f|
|00004d10| 69 76 65 20 69 6e 64 65 | 70 65 6e 64 65 6e 74 20 |ive inde|pendent |
|00004d20| 76 61 72 69 61 62 6c 65 | 73 20 75 73 65 64 20 69 |variable|s used i|
|00004d30| 6e 20 74 68 65 20 63 61 | 6c 63 75 6c 61 74 69 6f |n the ca|lculatio|
|00004d40| 6e 20 76 61 72 79 20 66 | 72 6f 6d 20 74 68 65 20 |n vary f|rom the |
|00004d50| 70 6f 69 6e 74 20 6f 66 | 20 69 6e 74 65 72 65 73 |point of| interes|
|00004d60| 74 20 62 79 20 69 6e 74 | 65 67 65 72 20 6d 75 6c |t by int|eger mul|
|00004d70| 74 69 70 6c 65 73 20 6f | 66 20 64 78 2e 0d 0d 54 |tiples o|f dx...T|
|00004d80| 59 50 45 20 52 45 51 55 | 49 52 45 4d 45 4e 54 53 |YPE REQU|IREMENTS|
|00004d90| 0d 0d 54 59 50 45 0d 46 | 4c 4f 41 54 20 3d 20 52 |..TYPE.F|LOAT = R|
|00004da0| 45 41 4c 20 6f 72 20 44 | 4f 55 42 4c 45 20 6f 72 |EAL or D|OUBLE or|
|00004db0| 20 45 58 54 45 4e 44 45 | 44 3b 0d 46 49 58 58 45 | EXTENDE|D;.FIXXE|
|00004dc0| 44 20 3d 20 49 4e 54 45 | 47 45 52 20 6f 72 20 4c |D = INTE|GER or L|
|00004dd0| 4f 4e 47 49 4e 54 3b 0d | 0d 43 41 4c 4c 49 4e 47 |ONGINT;.|.CALLING|
|00004de0| 20 50 52 4f 43 45 44 55 | 52 45 0d 0d 76 61 72 0d | PROCEDU|RE..var.|
|00004df0| 58 3a 46 4c 4f 41 54 3b | 7b 50 6f 69 6e 74 20 66 |X:FLOAT;|{Point f|
|00004e00| 6f 72 20 77 68 69 63 68 | 20 74 68 65 20 64 65 72 |or which| the der|
|00004e10| 69 76 61 74 69 76 65 20 | 69 73 20 64 65 73 69 72 |ivative |is desir|
|00004e20| 65 64 7d 20 0d 44 58 3a | 46 4c 4f 41 54 3b 7b 44 |ed} .DX:|FLOAT;{D|
|00004e30| 65 6c 74 61 20 78 20 75 | 73 65 64 20 69 6e 20 63 |elta x u|sed in c|
|00004e40| 61 6c 63 75 6c 61 74 69 | 6e 67 20 74 68 65 20 20 |alculati|ng the |
|00004e50| 64 65 72 69 76 61 74 69 | 76 65 7d 0d 44 49 52 3a |derivati|ve}.DIR:|
|00004e60| 46 49 58 58 45 44 3b 7b | 49 6e 74 65 67 65 72 20 |FIXXED;{|Integer |
|00004e70| 76 61 6c 75 65 20 77 68 | 69 63 68 20 64 65 74 65 |value wh|ich dete|
|00004e80| 72 6d 69 6e 65 73 20 77 | 68 61 74 20 74 79 70 65 |rmines w|hat type|
|00004e90| 20 6f 66 20 64 69 66 66 | 65 72 65 6e 63 65 20 66 | of diff|erence f|
|00004ea0| 6f 72 6d 75 6c 61 20 74 | 6f 20 75 73 65 20 69 6e |ormula t|o use in|
|00004eb0| 20 74 68 65 20 63 61 6c | 63 75 6c 61 74 69 6f 6e | the cal|culation|
|00004ec0| 2e 20 20 31 2d 20 66 6f | 72 77 61 72 64 2c 20 30 |. 1- fo|rward, 0|
|00004ed0| 2d 20 63 65 6e 74 72 61 | 6c 2c 20 2d 31 20 2d 20 |- centra|l, -1 - |
|00004ee0| 62 61 63 6b 77 61 72 64 | 7d 0d 0d 44 65 66 69 6e |backward|}..Defin|
|00004ef0| 65 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 46 |e the fu|nction F|
|00004f00| 20 6f 66 20 74 79 70 65 | 20 46 4c 4f 41 54 20 77 | of type| FLOAT w|
|00004f10| 69 74 68 20 69 6e 70 75 | 74 20 58 49 4e 20 61 6c |ith inpu|t XIN al|
|00004f20| 73 6f 20 6f 66 20 74 79 | 70 65 20 46 4c 4f 41 54 |so of ty|pe FLOAT|
|00004f30| 2e 0d 44 65 66 69 6e 65 | 20 58 49 4e 2c 20 44 58 |..Define| XIN, DX|
|00004f40| 20 61 6e 64 20 44 49 52 | 2e 20 20 43 61 6c 6c 20 | and DIR|. Call |
|00004f50| 46 49 4e 44 5f 44 59 44 | 58 2e 0d 0d 59 50 52 49 |FIND_DYD|X...YPRI|
|00004f60| 4d 45 3a 3d 46 49 4e 44 | 5f 44 59 44 58 28 58 49 |ME:=FIND|_DYDX(XI|
|00004f70| 4e 2c 44 58 2c 44 49 52 | 29 3b 0d 0d 45 58 41 4d |N,DX,DIR|);..EXAM|
|00004f80| 50 4c 45 0d 0d 54 68 65 | 20 65 78 61 6d 70 6c 65 |PLE..The| example|
|00004f90| 20 72 65 61 64 73 20 69 | 6e 20 61 20 76 61 6c 75 | reads i|n a valu|
|00004fa0| 65 20 66 6f 72 20 58 20 | 61 6e 64 20 44 49 52 2c |e for X |and DIR,|
|00004fb0| 20 63 61 6c 63 75 6c 61 | 74 65 73 20 61 6e 64 20 | calcula|tes and |
|00004fc0| 70 72 69 6e 74 73 20 64 | 28 73 69 6e 28 78 29 29 |prints d|(sin(x))|
|00004fd0| 2f 64 78 20 61 6e 64 20 | 63 6f 73 28 78 29 2e 20 |/dx and |cos(x). |
|00004fe0| 20 54 68 69 73 20 77 69 | 6c 6c 20 63 6f 6e 74 69 | This wi|ll conti|
|00004ff0| 6e 75 65 20 75 6e 74 69 | 6c 20 61 20 76 61 6c 75 |nue unti|l a valu|
|00005000| 65 20 6f 66 20 78 20 3d | 20 30 20 69 73 20 72 65 |e of x =| 0 is re|
|00005010| 61 64 2e 0d 0d 0d 0d 0d | 52 45 46 45 52 45 4e 43 |ad......|REFERENC|
|00005020| 45 53 0d 0d 4a 61 6d 65 | 73 2c 20 4d 2e 20 4c 2e |ES..Jame|s, M. L.|
|00005030| 2c 20 53 6d 69 74 68 2c | 20 47 2e 20 4d 2e 2c 20 |, Smith,| G. M., |
|00005040| 57 6f 6c 66 6f 72 64 2c | 20 4a 2e 20 43 2e 3a 20 |Wolford,| J. C.: |
|00005050| 20 41 70 70 6c 69 65 64 | 20 4e 75 6d 65 72 69 63 | Applied| Numeric|
|00005060| 61 6c 20 4d 65 74 68 6f | 64 73 20 66 6f 72 20 44 |al Metho|ds for D|
|00005070| 69 67 69 74 61 6c 20 43 | 6f 6d 70 75 74 61 74 69 |igital C|omputati|
|00005080| 6f 6e 20 57 69 74 68 20 | 46 6f 72 74 72 61 6e 20 |on With |Fortran |
|00005090| 61 6e 64 20 43 53 4d 50 | 2c 20 48 61 72 70 65 72 |and CSMP|, Harper|
|000050a0| 20 61 6e 64 20 52 6f 77 | 2c 20 4e 65 77 20 59 6f | and Row|, New Yo|
|000050b0| 72 6b 2c 20 31 39 37 37 | 2e 20 0d 00 00 16 46 49 |rk, 1977|. ....FI|
|000050c0| 4e 44 5f 44 59 44 58 2e | 50 41 53 00 00 17 46 49 |ND_DYDX.|PAS...FI|
|000050d0| 4e 44 5f 44 59 44 58 2e | 50 41 53 00 00 1a 31 31 |ND_DYDX.|PAS...11|
|000050e0| 00 00 06 50 52 4f 47 52 | 41 4d 20 54 45 53 54 5f |...PROGR|AM TEST_|
|000050f0| 46 49 4e 44 5f 44 59 44 | 58 3b 0d 54 59 50 45 0d |FIND_DYD|X;.TYPE.|
|00005100| 46 4c 4f 41 54 20 3d 20 | 52 45 41 4c 3b 0d 46 49 |FLOAT = |REAL;.FI|
|00005110| 58 58 45 44 20 3d 20 49 | 4e 54 45 47 45 52 3b 0d |XXED = I|NTEGER;.|
|00005120| 56 41 52 0d 58 2c 20 59 | 2c 20 44 58 20 3a 20 46 |VAR.X, Y|, DX : F|
|00005130| 4c 4f 41 54 3b 0d 44 49 | 52 20 3a 20 46 49 58 58 |LOAT;.DI|R : FIXX|
|00005140| 45 44 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 73 65 |ED;.PROC|EDURE se|
|00005150| 65 3b 0d 56 41 52 0d 52 | 20 3a 20 52 65 63 74 3b |e;.VAR.R| : Rect;|
|00005160| 0d 42 45 47 49 4e 0d 48 | 69 64 65 41 6c 6c 3b 0d |.BEGIN.H|ideAll;.|
|00005170| 53 65 74 52 65 63 74 28 | 52 2c 20 30 2c 20 33 35 |SetRect(|R, 0, 35|
|00005180| 2c 20 35 35 30 2c 20 33 | 33 30 29 3b 0d 53 65 74 |, 550, 3|30);.Set|
|00005190| 74 65 78 74 52 65 63 74 | 28 52 29 3b 0d 53 68 6f |textRect|(R);.Sho|
|000051a0| 77 74 65 78 74 3b 0d 45 | 4e 44 3b 0d 46 55 4e 43 |wtext;.E|ND;.FUNC|
|000051b0| 54 49 4f 4e 20 46 20 28 | 78 20 3a 20 46 4c 4f 41 |TION F (|x : FLOA|
|000051c0| 54 29 20 3a 20 46 4c 4f | 41 54 3b 0d 42 45 47 49 |T) : FLO|AT;.BEGI|
|000051d0| 4e 0d 46 20 3a 3d 20 53 | 49 4e 28 58 29 3b 0d 45 |N.F := S|IN(X);.E|
|000051e0| 4e 44 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 46 49 4e |ND;.FUNC|TION FIN|
|000051f0| 44 5f 44 59 44 58 20 28 | 58 2c 20 48 20 3a 20 46 |D_DYDX (|X, H : F|
|00005200| 4c 4f 41 54 3b 0d 49 20 | 3a 20 46 49 58 58 45 44 |LOAT;.I |: FIXXED|
|00005210| 29 20 3a 20 46 4c 4f 41 | 54 3b 0d 56 41 52 0d 44 |) : FLOA|T;.VAR.D|
|00005220| 59 44 58 20 3a 20 46 4c | 4f 41 54 3b 0d 42 45 47 |YDX : FL|OAT;.BEG|
|00005230| 49 4e 0d 49 46 20 28 49 | 20 3e 3d 20 31 29 20 54 |IN.IF (I| >= 1) T|
|00005240| 48 45 4e 0d 42 45 47 49 | 4e 0d 44 59 44 58 20 3a |HEN.BEGI|N.DYDX :|
|00005250| 3d 20 2d 33 2e 30 20 2a | 20 46 28 58 20 2b 20 34 |= -3.0 *| F(X + 4|
|00005260| 20 2a 20 48 29 20 2b 20 | 31 36 2e 30 20 2a 20 46 | * H) + |16.0 * F|
|00005270| 28 58 20 2b 20 33 20 2a | 20 48 29 3b 0d 44 59 44 |(X + 3 *| H);.DYD|
|00005280| 58 20 3a 3d 20 44 59 44 | 58 20 2b 20 28 2d 33 36 |X := DYD|X + (-36|
|00005290| 2e 30 20 2a 20 46 28 58 | 20 2b 20 32 20 2a 20 48 |.0 * F(X| + 2 * H|
|000052a0| 29 20 2b 20 34 38 2e 30 | 20 2a 20 46 28 58 20 2b |) + 48.0| * F(X +|
|000052b0| 20 48 29 20 2d 20 32 35 | 2e 30 20 2a 20 46 28 58 | H) - 25|.0 * F(X|
|000052c0| 29 29 3b 0d 46 49 4e 44 | 5f 44 59 44 58 20 3a 3d |));.FIND|_DYDX :=|
|000052d0| 20 44 59 44 58 20 2f 20 | 28 31 32 2e 30 20 2a 20 | DYDX / |(12.0 * |
|000052e0| 48 29 3b 0d 45 4e 44 0d | 45 4c 53 45 20 49 46 20 |H);.END.|ELSE IF |
|000052f0| 28 49 20 3c 3d 20 31 29 | 20 54 48 45 4e 0d 42 45 |(I <= 1)| THEN.BE|
|00005300| 47 49 4e 0d 44 59 44 58 | 20 3a 3d 20 2b 33 2e 30 |GIN.DYDX| := +3.0|
|00005310| 20 2a 20 46 28 58 20 2d | 20 34 20 2a 20 48 29 20 | * F(X -| 4 * H) |
|00005320| 2d 20 31 36 2e 30 20 2a | 20 46 28 58 20 2d 20 33 |- 16.0 *| F(X - 3|
|00005330| 20 2a 20 48 29 3b 0d 44 | 59 44 58 20 3a 3d 20 44 | * H);.D|YDX := D|
|00005340| 59 44 58 20 2b 20 28 2b | 33 36 2e 30 20 2a 20 46 |YDX + (+|36.0 * F|
|00005350| 28 58 20 2d 20 32 20 2a | 20 48 29 20 2d 20 34 38 |(X - 2 *| H) - 48|
|00005360| 2e 30 20 2a 20 46 28 58 | 20 2d 20 48 29 20 2b 20 |.0 * F(X| - H) + |
|00005370| 32 35 2e 30 20 2a 20 46 | 28 58 29 29 3b 0d 46 49 |25.0 * F|(X));.FI|
|00005380| 4e 44 5f 44 59 44 58 20 | 3a 3d 20 44 59 44 58 20 |ND_DYDX |:= DYDX |
|00005390| 2f 20 28 31 32 2e 30 20 | 2a 20 48 29 3b 0d 45 4e |/ (12.0 |* H);.EN|
|000053a0| 44 0d 45 4c 53 45 0d 42 | 45 47 49 4e 0d 44 59 44 |D.ELSE.B|EGIN.DYD|
|000053b0| 58 20 3a 3d 20 28 2d 46 | 28 58 20 2b 20 32 20 2a |X := (-F|(X + 2 *|
|000053c0| 20 48 29 20 2b 20 38 2e | 30 20 2a 20 46 28 58 20 | H) + 8.|0 * F(X |
|000053d0| 2b 20 48 29 20 2d 20 38 | 2e 30 20 2a 20 46 28 58 |+ H) - 8|.0 * F(X|
|000053e0| 20 2d 20 48 29 20 2b 20 | 46 28 58 20 2d 20 32 20 | - H) + |F(X - 2 |
|000053f0| 2a 20 48 29 29 3b 0d 46 | 49 4e 44 5f 44 59 44 58 |* H));.F|IND_DYDX|
|00005400| 20 3a 3d 20 44 59 44 58 | 20 2f 20 28 31 32 2e 30 | := DYDX| / (12.0|
|00005410| 20 2a 20 48 29 3b 0d 45 | 4e 44 3b 0d 45 4e 44 3b | * H);.E|ND;.END;|
|00005420| 0d 42 45 47 49 4e 0d 73 | 65 65 3b 0d 44 58 20 3a |.BEGIN.s|ee;.DX :|
|00005430| 3d 20 30 2e 30 31 3b 0d | 44 49 52 20 3a 3d 20 31 |= 0.01;.|DIR := 1|
|00005440| 3b 0d 52 45 50 45 41 54 | 0d 57 52 49 54 45 4c 4e |;.REPEAT|.WRITELN|
|00005450| 28 27 20 46 49 4e 44 49 | 4e 47 20 54 48 45 20 44 |(' FINDI|NG THE D|
|00005460| 45 52 49 56 41 54 49 56 | 45 20 4f 46 20 53 49 4e |ERIVATIV|E OF SIN|
|00005470| 28 58 29 27 29 3b 0d 57 | 52 49 54 45 4c 4e 28 27 |(X)');.W|RITELN('|
|00005480| 20 45 4e 54 45 52 20 58 | 20 41 4e 44 20 44 49 52 | ENTER X| AND DIR|
|00005490| 45 43 54 49 4f 4e 20 28 | 2d 31 2c 30 2c 31 29 27 |ECTION (|-1,0,1)'|
|000054a0| 29 3b 0d 72 65 61 64 6c | 6e 28 78 2c 20 44 49 52 |);.readl|n(x, DIR|
|000054b0| 29 3b 0d 59 20 3a 3d 20 | 46 49 4e 44 5f 44 59 44 |);.Y := |FIND_DYD|
|000054c0| 58 28 58 2c 20 44 58 2c | 20 44 49 52 29 3b 0d 57 |X(X, DX,| DIR);.W|
|000054d0| 52 49 54 45 4c 4e 28 58 | 20 3a 20 31 30 20 3a 20 |RITELN(X| : 10 : |
|000054e0| 35 2c 20 27 20 20 20 20 | 43 41 4c 43 55 4c 41 54 |5, ' |CALCULAT|
|000054f0| 45 44 3d 20 20 27 2c 20 | 59 20 3a 20 31 33 20 3a |ED= ', |Y : 13 :|
|00005500| 20 31 30 2c 20 27 20 20 | 20 20 20 20 20 41 43 54 | 10, ' | ACT|
|00005510| 55 41 4c 3d 20 20 27 2c | 20 43 4f 53 28 58 29 20 |UAL= ',| COS(X) |
|00005520| 3a 20 31 33 20 3a 20 31 | 30 29 3b 0d 55 4e 54 49 |: 13 : 1|0);.UNTI|
|00005530| 4c 20 28 58 20 3d 20 30 | 2e 30 29 3b 0d 45 4e 44 |L (X = 0|.0);.END|
|00005540| 2e 00 46 49 4e 44 5f 44 | 59 44 58 2e 50 41 53 00 |..FIND_D|YDX.PAS.|
|00005550| 00 00 00 00 2e 00 61 72 | 65 20 63 61 6c 63 75 6c |......ar|e calcul|
|00005560| 00 00 00 20 46 52 45 45 | 00 00 00 00 13 46 72 65 |... FREE|.....Fre|
|00005570| 65 20 4f 62 6a 65 63 74 | 20 20 20 20 20 20 20 20 |e Object| |
|00005580| 00 00 04 00 43 41 52 44 | 00 00 29 e9 00 00 2b 9b |....CARD|..)...+.|
|00005590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055a0| 00 00 28 86 00 05 00 06 | 00 00 01 fe 00 04 00 00 |..(.....|........|
|000055b0| 01 6c 00 22 00 02 02 00 | 00 36 00 18 00 8b 00 ec |.l."....|.6......|
|000055c0| 40 04 00 00 00 00 00 00 | 00 03 00 0c 00 00 00 10 |@.......|........|
|000055d0| 00 00 00 00 00 22 00 03 | 02 00 00 36 01 0f 00 8c |....."..|...6....|
|000055e0| 01 e4 40 04 00 00 00 00 | 00 00 00 03 00 0c 00 00 |..@.....|........|
|000055f0| 00 10 00 00 00 00 00 22 | 00 04 02 01 00 a3 00 19 |......."|........|
|00005600| 00 f7 01 ec 00 04 00 00 | 00 00 00 00 00 03 00 0c |........|........|
|00005610| 00 00 00 10 00 00 00 00 | 00 56 00 05 01 00 01 18 |........|.V......|
|00005620| 01 49 01 2e 01 ad 80 03 | 00 00 00 00 00 01 00 00 |.I......|........|
|00005630| 00 0c 00 00 00 10 4e 65 | 78 74 20 43 61 72 64 00 |......Ne|xt Card.|
|00005640| 00 6f 6e 20 6d 6f 75 73 | 65 55 70 0d 67 6f 20 74 |.on mous|eUp.go t|
|00005650| 6f 20 63 61 72 64 20 69 | 64 20 31 31 34 31 37 0d |o card i|d 11417.|
|00005660| 65 6e 64 20 6d 6f 75 73 | 65 55 70 0d 0d 00 01 42 |end mous|eUp....B|
|00005670| 00 06 01 00 01 15 00 1d | 01 2e 00 cf 80 03 00 00 |........|........|
|00005680| 00 00 00 01 00 00 00 0c | 00 00 00 10 42 61 63 6b |........|....Back|
|00005690| 20 74 6f 20 4d 41 43 4d | 41 54 48 50 41 53 43 41 | to MACM|ATHPASCA|
|000056a0| 4c 00 00 6f 6e 20 6d 6f | 75 73 65 55 70 0d 67 6f |L..on mo|useUp.go|
|000056b0| 20 74 6f 20 63 61 72 64 | 20 69 64 20 32 32 34 34 | to card| id 2244|
|000056c0| 0d 73 65 74 20 74 68 65 | 20 6c 6f 63 6b 73 63 72 |.set the| lockscr|
|000056d0| 65 65 6e 20 74 6f 20 66 | 61 6c 73 65 0d 73 65 74 |een to f|alse.set|
|000056e0| 20 76 69 73 69 62 6c 65 | 20 6f 66 20 46 69 65 6c | visible| of Fiel|
|000056f0| 64 20 44 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |d Docume|ntation |
|00005700| 74 6f 20 46 61 6c 73 65 | 0d 73 65 74 20 76 69 73 |to False|.set vis|
|00005710| 69 62 6c 65 20 6f 66 20 | 46 69 65 6c 64 20 53 6f |ible of |Field So|
|00005720| 75 72 63 65 20 74 6f 20 | 46 61 6c 73 65 0d 73 65 |urce to |False.se|
|00005730| 74 20 76 69 73 69 62 6c | 65 20 6f 66 20 42 41 43 |t visibl|e of BAC|
|00005740| 4b 47 52 4f 55 4e 44 20 | 62 75 74 74 6f 6e 20 22 |KGROUND |button "|
|00005750| 49 6e 74 72 6f 64 75 63 | 74 69 6f 6e 22 20 74 6f |Introduc|tion" to|
|00005760| 20 46 61 6c 73 65 0d 73 | 65 74 20 76 69 73 69 62 | False.s|et visib|
|00005770| 6c 65 20 6f 66 20 42 41 | 43 4b 47 52 4f 55 4e 44 |le of BA|CKGROUND|
|00005780| 20 62 75 74 74 6f 6e 20 | 22 43 72 65 61 74 65 20 | button |"Create |
|00005790| 50 72 6f 67 72 61 6d 22 | 20 74 6f 20 46 61 6c 73 |Program"| to Fals|
|000057a0| 65 0d 65 6e 64 20 6d 6f | 75 73 65 55 70 0d 0d 00 |e.end mo|useUp...|
|000057b0| ff fc 41 73 20 61 20 72 | 65 67 69 73 74 65 72 65 |..As a r|egistere|
|000057c0| 64 20 6f 77 6e 65 64 20 | 6f 66 20 4d 41 43 4d 41 |d owned |of MACMA|
|000057d0| 54 48 50 41 53 43 41 4c | 20 79 6f 75 20 77 69 6c |THPASCAL| you wil|
|000057e0| 6c 20 72 65 63 65 69 76 | 65 20 61 20 70 72 69 6e |l receiv|e a prin|
|000057f0| 74 65 64 20 61 6e 64 20 | 62 6f 75 6e 64 20 63 6f |ted and |bound co|
|00005800| 70 79 20 6f 66 20 74 68 | 65 20 64 6f 63 75 6d 65 |py of th|e docume|
|00005810| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 61 6c 6c 20 |ntation |for all |
|00005820| 6f 66 20 74 68 65 20 72 | 6f 75 74 69 6e 65 73 2e |of the r|outines.|
|00005830| 20 20 49 6e 20 61 64 64 | 69 74 69 6f 6e 20 79 6f | In add|ition yo|
|00005840| 75 20 77 69 6c 6c 20 72 | 65 63 65 69 76 65 20 24 |u will r|eceive $|
|00005850| 35 20 66 6f 72 20 65 76 | 65 72 79 20 63 6f 70 79 |5 for ev|ery copy|
|00005860| 20 6f 66 20 4d 41 43 4d | 41 54 48 50 41 53 43 41 | of MACM|ATHPASCA|
|00005870| 4c 20 77 68 69 63 68 20 | 79 6f 75 20 67 69 76 65 |L which |you give|
|00005880| 20 74 6f 20 79 6f 75 72 | 20 66 72 69 65 6e 64 73 | to your| friends|
|00005890| 20 61 6e 64 20 74 68 65 | 79 20 62 65 63 6f 6d 65 | and the|y become|
|000058a0| 20 20 72 65 67 69 73 74 | 65 72 65 64 20 6f 77 6e | regist|ered own|
|000058b0| 65 72 73 2e 20 20 59 6f | 75 20 77 69 6c 6c 20 6e |ers. Yo|u will n|
|000058c0| 6f 74 20 72 65 63 65 69 | 76 65 20 74 68 65 20 24 |ot recei|ve the $|
|000058d0| 35 20 75 6e 6c 65 73 73 | 20 79 6f 75 20 61 72 65 |5 unless| you are|
|000058e0| 20 72 65 67 69 73 74 65 | 72 65 64 2e 20 20 54 68 | registe|red. Th|
|000058f0| 65 20 72 65 67 69 73 74 | 72 61 74 69 6f 6e 20 66 |e regist|ration f|
|00005900| 65 65 20 69 73 20 24 32 | 35 2e 00 00 01 31 30 31 |ee is $2|5....101|
|00005910| 00 ff fe 0d 0d 0d 0d 00 | ff fd 0d 00 6f 72 64 65 |........|....orde|
|00005920| 72 31 00 6f 6e 20 6f 70 | 65 6e 63 61 72 64 0d 73 |r1.on op|encard.s|
|00005930| 65 74 20 75 73 65 72 6c | 65 76 65 6c 20 74 6f 20 |et userl|evel to |
|00005940| 32 0d 65 6e 64 20 6f 70 | 65 6e 63 61 72 64 0d 6f |2.end op|encard.o|
|00005950| 6e 20 63 6c 6f 73 65 63 | 61 72 64 0d 73 65 74 20 |n closec|ard.set |
|00005960| 75 73 65 72 6c 65 76 65 | 6c 20 74 6f 20 31 0d 65 |userleve|l to 1.e|
|00005970| 6e 64 20 63 6c 6f 73 65 | 63 61 72 64 0d 00 46 4c |nd close|card..FL|
|00005980| 00 00 12 60 43 41 52 44 | 00 00 19 25 00 00 00 00 |...`CARD|...%....|
|00005990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059a0| 00 00 0a 2f 00 00 00 00 | 00 00 00 00 00 05 00 00 |.../....|........|
|000059b0| 12 04 00 16 47 41 55 53 | 53 5f 53 45 49 44 45 4c |....GAUS|S_SEIDEL|
|000059c0| 2e 50 41 53 00 00 17 47 | 41 55 53 53 5f 53 45 49 |.PAS...G|AUSS_SEI|
|000059d0| 44 45 4c 2e 50 41 53 00 | 00 11 47 41 55 53 53 5f |DEL.PAS.|..GAUSS_|
|000059e0| 53 45 49 44 45 4c 5b 70 | 72 6f 63 65 64 75 72 65 |SEIDEL[p|rocedure|
|000059f0| 5d 0d 0d 0d 0d 50 55 52 | 50 4f 53 45 20 0d 0d 47 |]....PUR|POSE ..G|
|00005a00| 41 55 53 53 5f 53 45 49 | 44 45 4c 20 69 73 20 64 |AUSS_SEI|DEL is d|
|00005a10| 65 73 69 67 6e 65 64 20 | 74 6f 20 73 6f 6c 76 65 |esigned |to solve|
|00005a20| 20 61 20 6c 61 72 67 65 | 20 73 79 73 74 65 6d 20 | a large| system |
|00005a30| 6f 66 20 6c 69 6e 65 61 | 72 20 65 71 75 61 74 69 |of linea|r equati|
|00005a40| 6f 6e 73 20 75 73 69 6e | 67 20 74 68 65 20 47 61 |ons usin|g the Ga|
|00005a50| 75 73 73 2d 53 65 69 64 | 65 6c 20 69 74 65 72 61 |uss-Seid|el itera|
|00005a60| 74 69 6f 6e 20 6d 65 74 | 68 6f 64 2e 20 20 54 68 |tion met|hod. Th|
|00005a70| 65 20 47 61 75 73 73 2d | 53 65 69 64 65 6c 20 6d |e Gauss-|Seidel m|
|00005a80| 65 74 68 6f 64 20 61 73 | 73 75 6d 65 73 20 76 61 |ethod as|sumes va|
|00005a90| 6c 75 65 73 20 66 6f 72 | 20 20 61 6c 6c 20 6f 66 |lues for| all of|
|00005aa0| 20 74 68 65 20 76 61 72 | 69 61 62 6c 65 73 2e 20 | the var|iables. |
|00005ab0| 20 49 74 20 74 68 65 6e | 20 73 6f 6c 76 65 73 20 | It then| solves |
|00005ac0| 74 68 65 20 66 69 72 73 | 74 20 6f 66 20 74 68 65 |the firs|t of the|
|00005ad0| 20 6c 69 6e 65 61 72 20 | 65 71 75 61 74 69 6f 6e | linear |equation|
|00005ae0| 73 20 66 6f 72 20 74 68 | 65 20 66 69 72 73 74 20 |s for th|e first |
|00005af0| 76 61 72 69 61 62 6c 65 | 2c 20 78 31 2c 20 69 6e |variable|, x1, in|
|00005b00| 20 74 65 72 6d 73 20 6f | 66 20 74 68 65 20 6f 74 | terms o|f the ot|
|00005b10| 68 65 72 20 76 61 72 69 | 61 62 6c 65 73 2e 20 20 |her vari|ables. |
|00005b20| 49 6e 20 74 68 69 73 20 | 6d 61 6e 6e 65 72 20 61 |In this |manner a|
|00005b30| 20 6e 65 77 20 76 61 6c | 75 65 20 66 6f 72 20 78 | new val|ue for x|
|00005b40| 31 20 69 73 20 64 65 74 | 65 72 6d 69 6e 65 64 2e |1 is det|ermined.|
|00005b50| 20 55 73 69 6e 67 20 74 | 68 69 73 20 6e 65 77 20 | Using t|his new |
|00005b60| 78 31 20 74 68 65 20 73 | 65 63 6f 6e 64 20 65 71 |x1 the s|econd eq|
|00005b70| 75 61 74 69 6f 6e 20 69 | 73 20 75 73 65 64 20 74 |uation i|s used t|
|00005b80| 6f 20 64 65 74 65 72 6d | 69 6e 65 20 74 68 65 20 |o determ|ine the |
|00005b90| 6e 65 77 20 76 61 6c 75 | 65 20 66 6f 72 20 74 68 |new valu|e for th|
|00005ba0| 65 20 73 65 63 6f 6e 64 | 20 76 61 72 69 61 62 6c |e second| variabl|
|00005bb0| 65 2e 20 20 54 68 69 73 | 20 69 73 20 72 65 70 65 |e. This| is repe|
|00005bc0| 61 74 65 64 20 66 6f 72 | 20 61 6c 6c 20 6f 66 20 |ated for| all of |
|00005bd0| 74 68 65 20 65 71 75 61 | 74 69 6f 6e 73 2e 20 20 |the equa|tions. |
|00005be0| 54 68 65 20 77 68 6f 6c | 65 20 70 72 6f 63 65 73 |The whol|e proces|
|00005bf0| 73 20 69 73 20 72 65 70 | 65 61 74 65 64 20 66 6f |s is rep|eated fo|
|00005c00| 72 20 20 61 20 70 72 65 | 64 65 74 65 72 6d 69 6e |r a pre|determin|
|00005c10| 65 64 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 65 |ed numbe|r of ite|
|00005c20| 72 61 74 69 6f 6e 73 20 | 6f 72 20 75 6e 74 69 6c |rations |or until|
|00005c30| 20 74 68 65 20 20 63 68 | 61 6e 67 65 20 69 6e 20 | the ch|ange in |
|00005c40| 74 68 65 20 76 61 72 69 | 61 62 6c 65 73 20 69 73 |the vari|ables is|
|00005c50| 20 73 6d 61 6c 6c 65 72 | 20 74 68 61 6e 20 73 6f | smaller| than so|
|00005c60| 6d 65 20 70 72 65 64 65 | 74 65 72 6d 69 6e 65 64 |me prede|termined|
|00005c70| 20 76 61 6c 75 65 2e 0d | 0d 54 68 65 20 47 61 75 | value..|.The Gau|
|00005c80| 73 73 2d 53 65 69 64 65 | 6c 20 6d 65 74 68 6f 64 |ss-Seide|l method|
|00005c90| 20 77 69 6c 6c 20 6e 6f | 74 20 77 6f 72 6b 20 66 | will no|t work f|
|00005ca0| 6f 72 20 61 6c 6c 20 73 | 79 73 74 65 6d 73 20 6f |or all s|ystems o|
|00005cb0| 66 20 65 71 75 61 74 69 | 6f 6e 73 2e 20 20 49 6e |f equati|ons. In|
|00005cc0| 20 67 65 6e 65 72 61 6c | 2c 20 74 68 65 20 6d 65 | general|, the me|
|00005cd0| 74 68 6f 64 20 77 6f 72 | 6b 73 20 62 65 73 74 20 |thod wor|ks best |
|00005ce0| 77 68 65 6e 20 74 68 65 | 20 64 69 61 67 6f 6e 61 |when the| diagona|
|00005cf0| 6c 20 65 6c 65 6d 65 6e | 74 73 20 6f 66 20 74 68 |l elemen|ts of th|
|00005d00| 65 20 6d 61 74 72 69 78 | 20 61 72 65 20 6d 75 63 |e matrix| are muc|
|00005d10| 68 20 6c 61 72 67 65 72 | 20 74 68 61 6e 20 74 68 |h larger| than th|
|00005d20| 65 20 6f 74 68 65 72 20 | 65 6c 65 6d 65 6e 74 73 |e other |elements|
|00005d30| 20 6f 66 20 74 68 65 20 | 6d 61 74 72 69 78 2e 20 | of the |matrix. |
|00005d40| 20 54 6f 20 62 65 20 73 | 70 65 63 69 66 69 63 2c | To be s|pecific,|
|00005d50| 20 77 68 65 6e 20 74 68 | 65 20 61 62 73 6f 6c 75 | when th|e absolu|
|00005d60| 74 65 20 76 61 6c 75 65 | 20 6f 66 20 74 68 65 20 |te value| of the |
|00005d70| 64 69 61 67 6f 6e 61 6c | 20 65 6c 65 6d 65 6e 74 |diagonal| element|
|00005d80| 20 69 73 20 6c 61 72 67 | 65 72 20 74 68 61 6e 20 | is larg|er than |
|00005d90| 74 68 65 20 73 75 6d 20 | 6f 66 20 74 68 65 20 61 |the sum |of the a|
|00005da0| 62 73 6f 6c 75 74 65 20 | 76 61 6c 75 65 73 20 6f |bsolute |values o|
|00005db0| 66 20 61 6c 6c 20 6f 66 | 20 74 68 65 20 6f 74 68 |f all of| the oth|
|00005dc0| 65 72 20 65 6c 65 6d 65 | 6e 74 73 20 63 6f 6e 76 |er eleme|nts conv|
|00005dd0| 65 72 67 65 6e 63 65 20 | 69 73 20 61 73 73 75 72 |ergence |is assur|
|00005de0| 65 64 2e 20 20 53 75 63 | 68 20 61 20 6d 61 74 72 |ed. Suc|h a matr|
|00005df0| 69 78 20 69 73 20 6b 6e | 6f 77 6e 20 61 73 20 64 |ix is kn|own as d|
|00005e00| 69 61 67 6f 6e 61 6c 2e | 20 20 41 20 64 69 61 67 |iagonal.| A diag|
|00005e10| 6f 6e 61 6c 20 73 79 73 | 74 65 6d 20 69 73 20 73 |onal sys|tem is s|
|00005e20| 75 66 66 69 63 69 65 6e | 74 20 74 6f 20 65 6e 73 |ufficien|t to ens|
|00005e30| 75 72 65 20 63 6f 6e 76 | 65 72 67 65 6e 63 65 2c |ure conv|ergence,|
|00005e40| 20 62 75 74 20 69 73 20 | 6e 6f 74 20 6e 65 63 65 | but is |not nece|
|00005e50| 73 73 61 72 79 2e 0d 0d | 46 6f 72 20 61 20 6c 61 |ssary...|For a la|
|00005e60| 72 67 65 20 64 69 61 67 | 6f 6e 61 6c 20 6d 61 74 |rge diag|onal mat|
|00005e70| 72 69 78 20 74 68 65 20 | 47 61 75 73 73 2d 53 65 |rix the |Gauss-Se|
|00005e80| 69 64 65 6c 20 6d 65 74 | 68 6f 64 20 69 73 20 70 |idel met|hod is p|
|00005e90| 65 72 66 65 72 72 65 64 | 20 6f 76 65 72 20 6d 61 |erferred| over ma|
|00005ea0| 74 72 69 78 20 69 6e 76 | 65 72 73 69 6f 6e 20 6d |trix inv|ersion m|
|00005eb0| 65 74 68 6f 64 73 2e 20 | 20 41 73 73 75 6d 69 6e |ethods. | Assumin|
|00005ec0| 67 20 61 20 67 6f 6f 64 | 20 66 69 72 73 74 20 67 |g a good| first g|
|00005ed0| 75 65 73 73 20 66 6f 72 | 20 74 68 65 20 76 61 6c |uess for| the val|
|00005ee0| 75 65 73 20 6f 66 20 58 | 2c 20 74 68 65 20 6d 65 |ues of X|, the me|
|00005ef0| 74 68 6f 64 20 63 61 6e | 20 62 65 20 66 61 73 74 |thod can| be fast|
|00005f00| 65 72 2e 20 20 54 68 65 | 20 61 63 63 75 72 61 63 |er. The| accurac|
|00005f10| 79 20 6f 66 20 74 68 65 | 20 73 6f 6c 75 74 69 6f |y of the| solutio|
|00005f20| 6e 20 69 6e 63 72 65 61 | 73 65 73 20 77 69 74 68 |n increa|ses with|
|00005f30| 20 74 68 65 0d 0d 0d 0d | 0d 0d 0d 6e 75 6d 62 65 | the....|...numbe|
|00005f40| 72 20 6f 66 20 69 74 65 | 72 61 74 69 6f 6e 73 2e |r of ite|rations.|
|00005f50| 20 20 52 6f 75 6e 64 2d | 6f 66 66 20 65 72 72 6f | Round-|off erro|
|00005f60| 72 73 20 64 6f 20 6e 6f | 74 20 70 6c 61 79 20 61 |rs do no|t play a|
|00005f70| 6e 20 69 6d 70 6f 72 74 | 61 6e 74 20 72 6f 6c 65 |n import|ant role|
|00005f80| 20 69 6e 20 74 68 65 20 | 73 6f 6c 75 74 69 6f 6e | in the |solution|
|00005f90| 2e 20 20 49 6e 20 66 61 | 63 74 2c 20 74 68 65 20 |. In fa|ct, the |
|00005fa0| 47 61 75 73 73 2d 53 65 | 69 64 65 6c 20 6d 65 74 |Gauss-Se|idel met|
|00005fb0| 68 6f 64 20 69 73 20 6f | 66 74 65 6e 20 75 73 65 |hod is o|ften use|
|00005fc0| 64 20 74 6f 20 69 6e 63 | 72 65 61 73 65 20 74 68 |d to inc|rease th|
|00005fd0| 65 20 61 63 63 75 72 61 | 63 79 20 6f 66 20 73 6f |e accura|cy of so|
|00005fe0| 6c 75 74 69 6f 6e 73 20 | 64 65 74 65 72 6d 69 6e |lutions |determin|
|00005ff0| 65 64 20 62 79 20 6d 61 | 74 72 69 78 20 69 6e 76 |ed by ma|trix inv|
|00006000| 65 72 73 69 6f 6e 20 6d | 65 74 68 6f 64 73 2e 20 |ersion m|ethods. |
|00006010| 20 54 68 65 20 73 65 63 | 6f 6e 64 20 72 65 66 65 | The sec|ond refe|
|00006020| 72 65 6e 63 65 20 6c 69 | 73 74 65 64 20 62 65 6c |rence li|sted bel|
|00006030| 6f 77 20 6f 66 66 65 72 | 73 20 61 6e 20 65 78 63 |ow offer|s an exc|
|00006040| 65 6c 6c 65 6e 74 20 64 | 69 73 63 75 73 73 69 6f |ellent d|iscussio|
|00006050| 6e 20 6f 66 20 47 61 75 | 73 73 2d 53 65 69 64 65 |n of Gau|ss-Seide|
|00006060| 6c 20 61 63 63 75 72 61 | 63 79 20 61 6e 64 20 73 |l accura|cy and s|
|00006070| 70 65 65 64 2e 0d 20 0d | 0d 54 59 50 45 20 52 45 |peed.. .|.TYPE RE|
|00006080| 51 55 49 52 45 4d 45 4e | 54 53 0d 0d 54 59 50 45 |QUIREMEN|TS..TYPE|
|00006090| 0d 20 46 4c 4f 41 54 20 | 3d 20 45 58 54 45 4e 44 |. FLOAT |= EXTEND|
|000060a0| 45 44 20 6f 72 20 44 4f | 55 42 4c 45 20 6f 72 20 |ED or DO|UBLE or |
|000060b0| 52 45 41 4c 3b 0d 20 44 | 41 54 41 20 3d 20 41 52 |REAL;. D|ATA = AR|
|000060c0| 52 41 59 5b 31 2e 2e 4d | 41 58 53 49 5a 45 5d 20 |RAY[1..M|AXSIZE] |
|000060d0| 4f 46 20 46 4c 4f 41 54 | 3b 0d 20 53 51 55 41 52 |OF FLOAT|;. SQUAR|
|000060e0| 45 20 3d 20 41 52 52 41 | 59 5b 31 2e 2e 4d 41 58 |E = ARRA|Y[1..MAX|
|000060f0| 53 49 5a 45 20 4f 46 20 | 41 52 52 41 59 2c 31 2e |SIZE OF |ARRAY,1.|
|00006100| 2e 4d 41 58 53 49 5a 45 | 20 4f 46 20 41 52 52 41 |.MAXSIZE| OF ARRA|
|00006110| 59 5d 20 4f 46 20 46 4c | 4f 41 54 3b 0d 20 46 49 |Y] OF FL|OAT;. FI|
|00006120| 58 58 45 44 20 3d 20 49 | 4e 54 45 47 45 52 20 6f |XXED = I|NTEGER o|
|00006130| 72 20 4c 4f 4e 47 49 4e | 54 3b 0d 0d 0d 43 41 4c |r LONGIN|T;...CAL|
|00006140| 4c 49 4e 47 20 50 52 4f | 43 45 44 55 52 45 0d 0d |LING PRO|CEDURE..|
|00006150| 56 41 52 0d 58 3a 44 41 | 54 41 3b 7b 54 68 65 20 |VAR.X:DA|TA;{The |
|00006160| 69 6e 69 74 69 61 6c 20 | 67 75 65 73 73 20 6f 66 |initial |guess of|
|00006170| 20 74 68 65 20 20 73 6f | 6c 75 74 69 6f 6e 20 6f | the so|lution o|
|00006180| 66 20 74 68 65 20 73 79 | 73 74 65 6d 7d 0d 59 3a |f the sy|stem}.Y:|
|00006190| 44 41 54 41 3b 7b 54 68 | 65 20 72 69 67 68 74 20 |DATA;{Th|e right |
|000061a0| 73 69 64 65 20 6f 66 20 | 74 68 65 20 73 79 73 74 |side of |the syst|
|000061b0| 65 6d 7d 0d 43 4f 45 46 | 3a 53 51 55 41 52 45 3b |em}.COEF|:SQUARE;|
|000061c0| 7b 54 68 65 20 6c 65 66 | 74 20 73 69 64 65 20 6f |{The lef|t side o|
|000061d0| 66 20 74 68 65 20 73 79 | 73 74 65 6d 7d 0d 4e 3a |f the sy|stem}.N:|
|000061e0| 46 49 58 58 45 44 7b 4e | 75 6d 62 65 72 20 6f 66 |FIXXED{N|umber of|
|000061f0| 20 65 71 75 61 74 69 6f | 6e 73 20 69 6e 20 74 68 | equatio|ns in th|
|00006200| 65 20 20 73 79 73 74 65 | 6d 7d 0d 49 54 4d 41 58 |e syste|m}.ITMAX|
|00006210| 3a 46 49 58 58 45 44 3b | 7b 4d 61 78 69 6d 75 6d |:FIXXED;|{Maximum|
|00006220| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 72 61 | number |of itera|
|00006230| 74 69 6f 6e 73 7d 0d 45 | 52 52 4d 41 58 3a 46 4c |tions}.E|RRMAX:FL|
|00006240| 4f 41 54 3b 7b 49 66 20 | 74 68 65 20 73 71 75 61 |OAT;{If |the squa|
|00006250| 72 65 20 72 6f 6f 74 20 | 6f 66 20 74 68 65 20 73 |re root |of the s|
|00006260| 75 6d 20 6f 66 20 74 68 | 65 20 73 71 75 61 72 65 |um of th|e square|
|00006270| 73 20 6f 66 20 74 68 65 | 20 63 68 61 6e 67 65 20 |s of the| change |
|00006280| 69 6e 20 74 68 65 20 78 | 20 76 61 6c 75 65 73 20 |in the x| values |
|00006290| 69 73 20 6c 65 73 73 20 | 74 68 61 6e 20 45 52 52 |is less |than ERR|
|000062a0| 4d 41 58 20 20 74 68 65 | 20 72 6f 75 74 69 6e 65 |MAX the| routine|
|000062b0| 20 74 65 72 6d 69 6e 61 | 74 65 73 7d 0d 0d 4f 6e | termina|tes}..On|
|000062c0| 20 72 65 74 75 72 6e 2c | 20 49 54 4d 41 58 20 69 | return,| ITMAX i|
|000062d0| 73 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |s the nu|mber of |
|000062e0| 69 74 65 72 61 74 69 6f | 6e 73 20 63 6f 6d 70 6c |iteratio|ns compl|
|000062f0| 65 74 65 64 20 61 6e 64 | 20 45 52 52 4d 41 58 20 |eted and| ERRMAX |
|00006300| 69 73 20 74 68 65 20 73 | 71 75 61 72 65 20 72 6f |is the s|quare ro|
|00006310| 6f 74 20 6f 66 20 74 68 | 65 20 73 75 6d 20 6f 66 |ot of th|e sum of|
|00006320| 20 74 68 65 20 73 71 75 | 61 72 65 73 20 6f 66 20 | the squ|ares of |
|00006330| 74 68 65 20 6c 61 73 74 | 20 63 68 61 6e 67 65 20 |the last| change |
|00006340| 69 6e 20 74 68 65 20 78 | 20 76 61 6c 75 65 73 2e |in the x| values.|
|00006350| 0d 0d 44 65 66 69 6e 65 | 20 58 2c 20 59 2c 20 43 |..Define| X, Y, C|
|00006360| 4f 45 46 2c 20 4e 2c 20 | 49 54 4d 41 58 20 61 6e |OEF, N, |ITMAX an|
|00006370| 64 20 45 52 52 4d 41 58 | 2e 20 20 43 61 6c 6c 20 |d ERRMAX|. Call |
|00006380| 47 41 55 53 53 5f 53 49 | 45 44 45 4c 0d 0d 47 41 |GAUSS_SI|EDEL..GA|
|00006390| 55 53 53 5f 53 49 45 44 | 45 4c 28 43 4f 45 46 2c |USS_SIED|EL(COEF,|
|000063a0| 58 2c 59 2c 4e 2c 49 54 | 4d 41 58 2c 45 52 52 4d |X,Y,N,IT|MAX,ERRM|
|000063b0| 41 58 29 3b 0d 0d 0d 0d | 0d 0d 0d 0d 0d 0d 45 58 |AX);....|......EX|
|000063c0| 41 4d 50 4c 45 0d 0d 54 | 68 65 20 65 78 61 6d 70 |AMPLE..T|he examp|
|000063d0| 6c 65 20 70 72 6f 67 72 | 61 6d 20 73 6f 6c 76 65 |le progr|am solve|
|000063e0| 73 20 74 68 65 20 73 79 | 73 74 65 6d 20 6f 66 20 |s the sy|stem of |
|000063f0| 74 77 65 6c 76 65 20 65 | 71 75 61 74 69 6f 6e 73 |twelve e|quations|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
